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CADKWYIDT, BORA ECNSR 
LCP s 

& CRRRAOREA 


Rie OST EELS 
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A-DYNNARNEBIZA AAT 
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A124.9 4." MESA TUSODIEA 5 | 
CBR SIOM(S SV ad ta. H 
H. RRNAARDCTT I< BARRE 
FEWIe iL Wig T= He 
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SHE CTHOSR. CxS, 
ETBRSFLE, ATLA 
AL RADVNVINY GET 
THhOEAITi, ELT 
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Maya FTA 
EDMEETOAN 
2296 BAD YY hii 
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NEWS I BIMEAT, HAIL) 
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"AAAISE SH bloke Bpn 
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CLIACEORERID(L = 7 EBT 
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Coma “DATEL \ 
aImMOI4YMSX GAMEBOOKOSse-1FH LET 
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eR AIAEtHS, PRINT "“uvyzlb |+"tLOCATE 29, 12:PRINT “wx CIB Bd "RETURN 
] \ =) cm S620 PRINT “agryzlg j+":LOCATE 29,12:PRINT "st Cl 8 ":RETURN 
Gass ~” Q2h4> 4. CL- 663@ PRINT "mnyzt¥i+":LOCATE 29,12:PRINT “op {IB@+4":RETURN 
SSS ee 6640 PRINT "“uv}7-}PI2":LOCATE 29, 12:PRINT "wxt_S B74 ":RETURN 
-= B65@ PRINT "“ard71P |4":LOCATE 29, 12:PRINT "sti_SBvd ":RETURN 
@NEWSOFT EAR@CLOAD <a] 8660 PRINT "mn}7IP |+"LOCATE 29, 12:PRINT "“opt_SB+4 "!RETURN 
eT =| RS. : \te bs 8720 PRINT “qryzBM@l+":LOCATE 29, 12:PRINT "st¢1/—r ":RETURN 
POs 1> '85 #8 ASN Vibe IEWIZLEF. Te 8730 PRINT "mnyzQ@it":LOCATE 29, 12:PRINT “op¢l/—H ":RETURN 
ae a NY ‘ @74@ PRINT "uv}-MMl+":LOCATE 29,12:PRINT "“wxi_/—H ":RETURN 
J) NEWSOFT MA—F— Cra Lz UNA Dee S 8756 PRINT "qr}"MMl+":LOCATE 29, 12:FRINT "stm_/—H "!RETURN 
F . S760 PRINT "mn}~M@M|+":LOCATE 29,12:PRINT "“opt_/—rH "!RETURN 
SEQ IL—EDI (4S EI EI” esp RG Sey ee S815 PRINT "“uvyzte'3":LOCATE 29, 12:PRINT “wx Cl, ‘74¢":RETURN 
: : ace 8820 PRINT “aryztp 3"!LOCATE 29, 12:PRINT "sty <e¢"tRETURN 
NB) Cote, URBRABAT UTC > aUHtO7-4 -MSX 8830 PRINT "mnyztr+3":LOCATE 29, 12:PRINT “opCiy ‘74"?RETURN 
8846 PRINT "uv}—“*ps3":LOCATE 29, 12:PRINT "“wxm_y *74"tRETURN 
PBBMUIIIR< SFVTSC LC HI, GAMEBOOK] 40~ @85G PRINT "“qri7~“tp 3":LOCATE 29,12:PRINT "“sti_y ‘74¢"!RETURN 
” 846 PRINT "mni—*p:3":LOCATE 29, 12:PRINT "opmt_y 74" RETURN 
Se liane Weitz =) —VtEBRLOMSXY te a ries a 
SS ClZEES EE CUVsEa St. T 8 MSXVr>vis E=—I7F OF PLETIEY AP 


AA DKA SATO LE Ute. 
@LIST LOG 

POTD '85 FT ABIIIoRMLEL 
“TACTICS: -O7FEFILVUAL 
(<., —BBFRY ASH) ELI, BRIM 
GCHEW lose St CUE SST. 
TEA CHES SINT UE Ue. 
@sto 74 YMSX GAMEBOOK 

> BO 74 /MSX GAMEBOOK ®, 
35X—Y. SOFTWARE REVIEWOE 
RNC IATCIF 2 RRSAO ER 
NE" PD SEROR’ RECS NCTE 
GE EUUNA SER EBACE S 
CEO GOS Ole. Selene 
SAECO Weis & 956 

> Biito 74 /MSX GAMEBOOK ®, 
|4|<—Y, “LABYLINTH” MaitFA3c 
NLEIAT. AlsIDLEAD > 5 47B “OK 
ASM t=: SCLEAR[ RETURN |G, BASIC 


O77 Vik: Sessa 
O7- Vlsek- BfalBadld, AREA ASS 
AREA ECO ABA | TREE CHIT 
RSC, Bl(£03- 486-8086 TF, —M 
REAL RFRA CHRAOUTLET, 
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Bisp rn 

CTS SHFKS (TESS CRY TUELU 
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AAAI AL MMRIS5TSEN(S 2 M30 
Ht! LUZ EDICMDTATEHSIMAD 
fz, MEA > FeRMlotS. << DED TSH 
5HrTHELLA SH, 


10 CLEAR1O,&HEFFF:SCREENO:PRINT° TOP ADDRESS"; :GOSUB200: T=A 
40 IF 62336!-&H240>E THEN DEFSNGA~-Z:GOTO60 

50 IF T-&H241¢36287! THEN PRINT°CAN’T RUN!!":BEEP:END ELSE DEFSNGA-Z:F=1 
190 DEFUSR=M:KEY1, “A=USR(0)"+CHR$(13) 

191 PRINT"clear 10,&h";:IF F THEN PRINT HEX$(T-&H241) ELSE PRINT HEX$(T-1) 
192 PRINT STRING$(3,CHR$(30)):NEW 
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NED 7 7 LIVEFAAGER ILLS xX 
SP CEAD CF So lGEMEWEL 
ae 
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FEWUE DOL £ FIDE OSHERTIT C. 
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YE VT —LEUESOISELLY, Lab. 
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(AG To 7 Te HO HESS) || HORA lSS 
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AOTSREG ye Deb so ee. o. 4ES 
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SRS CL alS, TET PAZ THR 
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DIB. A—-y CHICMA FH CRT, F 
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LSD Co CL SI Or: 
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LICIFAIDEDOD 
Fey TIE! 
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Qz mi ASE, RFFMICKATS. | Dldls, VAZAROFIIRK TSH 
Oi. . HOF —-9&, ANEMIC ERITS. | C7FO7TIALRSE—CRENT. BD 





@D.C.. DS. HOF—-Y9*&, ACIAMICERTS. | WIRE Ca TC CPSU, 











[" 
ICID D CROKERIF AIT. PEDOKEDISNEBARTCHABY CHBILSS TUE. B88 | 

BUIF TUDE. HB. GFICHHERCS. REOKADDDVEMAXRBICBAITWNS. HTIOBBAVT Ww | 
| EBEISSORAPSSIIF,. ENDKBOREBERDL TNS. 212ViEH. | 
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‘AR IT sADTSP 


FLZRYVELF 





F—LETEADE 
Au. BASIC@ 
PUT@, GET ®@ 
e(FD TEPID 
PRRELEDTIDSE VTE 
V\. FICVYVBeESI CB 
WELED, Fr ITIFIORERO 
HADDDYUEtA. MATCE 
eu). CHAIR - Be - 14) 





Z~ Alt, PSGRUA”A 
Blk] CRU OBA AD 
120) Cy ie FT 
FVAAT AZINE 
43CL2aI2 C2s 
im! S&H, AAG! FZRHTH 
We< Ai! BR We eMTARH. 
Z-LAWEME & 77! 

CC, FARZELE. HBRIIV-R 
AM £*G-RAM £2109 SH eH 
RO ERMHYV ETD? AAIEVIDEO- 
RAM, GRAPHIC-RAM &}97AT 

BIRGER CX 77 IZ E BHO 
Ht eu ubihaainleemiren 
PACE dee 

V-RAM £2G-RAM £li-f® 2A 
Leen jgARBrZRELNMEWAT 
MARL EST. CHILL EVV 

Cd. (hD RAM &/s (89 AMA ue 9 
ACH. Wi EV LIE TF-AEHM 
F=Jeg“erazy e7yaryry=-7 ze 
HC RMODLDEZDA TTA, V-RAM, 
G-RAMI< (SHIM IL #AR SN TOOT 
—ISREPNRTADNTCTF. 

2 C, FYZDRWABHEHRSL 
Muse T2D*, V-RAM CG-RAM [<i] > 
Hf SIAA COME, SAH wT IS Ze 
SNADNTT. 

CISERLTAFKLED. HH 





by 7p ee 


lisa 





° iD Cc So 


(tPC-6001 (32K), PC-6001mkII +P PC- 
6601M Alz N60-BASIC 32K  — F 
[LCs BR CARORKOTUZ 
FLeARTRUNULTS HS. 

10 SCREEN 3,2,2:CLS 

20 POKE & HE200, 255 

30 GOTO 30 

ea A ICR BRAY 1 ASHE CLE. 
2017 0255 & LOIS L TAMIL W294 
A AAARD IS L. E200 % ZS & FR 
ROWS GMMR EST. REL, 
E2002 FOFFORIC LAs EET 
SRO LAREtA Fs 

= 4C E200 ~F9FF (¢ V-RAM 4A 
2G hm EDW—-—OPbD”) = U72.. E000 
~EIFF% V-RAMOD—-BMeA CHR, 
Sly PY eae fey 
Ak V-RAM tlA5 4 7 EHIDT 
> tht & 4 AIESCREEN3S & M4 (12L 
THI Ci mPOKELTATH EK 
VX, 

LILAC, CHITOSE HT 
AEN ET, VPHaTUPRAGET 
HIN? YY ODV-RAMT FV AB idl 
Cube b Sse 


eeeoeoeoevoeoeveoeveeeeeeeeeeeeeeeeee eee ee eo @ 


PC-8801DG-R 
AMIZCPOKELE 
4 EBASIC TOU 
T &H5C.0@ Po 
ES>RELTLEWELE. ED 
LESEWODTLEIDD? 
CHR EB : 7KASA - 157) 

d= SD) SWE. 
PC-8801 Clt BASIC 
>t G-RAM [23% 
AATFHEZIOLETS 
SA. VYYHE 
Hives £9. BASICLMMSGZWA 
\kZ80 NPY v Ge MGRL TD HCD 
Ke iAKLED. 

PC-8801 Cld7%> FTO OZ BITS 
A 2eC. £4 YS? EY) OCI = 
FFFFH & V-RAM® bi arit_k.. Aquik 
Z TWEET. K=— } OSCHM S5FHE 
CH, FOU VRZ KITE IRONS 
DCT» 





F CAYSC x 





OUT (5CH), A------Blue 

OUT (5DH), A::::::Red 

OUT (ER), A Green 

OUT (5FH), A-:::;Main 
A Oe COT VHS 

RAAMNREICHEO ET, 

a nee 
7D PRIC(LHI RBA HY ET. 
OreA VYAKEYV UMC )RLZSZLS 
(4, DI(SI) AARIE) & LAWNS 
b TEV. 
QF It PUSH CALL4 EDAY » 
Dw B ST SAAS TILT Ba, 


QOBRIZEW IDL, SP (AV » 
DRA YI) PS, CO0~ i BT 
NUECTF. BEVUTEVrMeEWIL, 
>} L. CALL2t k= TV 7 t-F 
VIZIO (4RZE OBE, BEY) FEHEA* CO 
A€UN4S), FO CHI 7 

7TCHLEFVEN4H, RETHPC 
: AILELTIH,. KR) FWP doPoe 
WeecCwWo Cee ET. bb, 
PUSH*CCALL ® fila 25 RH AIO 
BibicA~Ay y FZ YVTRARLTTHS 
IkLEeELED (LD SP, mee 7OTC 
+) CAMHS. BASICILR 4S AICSPe 
TIA UTH EEE ONERRET 
4%-C.LD (nn), SP@& LT. AF v7 
RAYS SRI ZTCBREL EI. 


BHA Sal! 


HAVrEH SIT ONRMBECHS.'t 
ARI BHDHUOADN?, cbRU 
CLEID, AYICAMARLYA 

Co. RItSHhts (Sy; oko Ss 
2) BEN BHMeARRL ECA 
WEE. MICLA EBAY Cee 


00 ~ (r#E RIA 


Bee C576 SSB LC 


(4 << dD LUBRSBRUSAKA DH. & 
lite lth Bhitprlreo es 
EL, Ho, €9€9. BHF 
EABMEPFSZRAI-F-LFI 
F-NARADNBRb, 6 54A0K 
Cg Dp Stace SS 7M 

1% ') FE 

7107 BRAS MB w5-11-5 
(R)PAF- AAA YE 
F—hxXf+VOMRE Bh 





| SO<LERPSWLECEA. RD<LEBO< Lid, UDEQE<DDUTLEDE. ELT. OUI 

| POOKEMOR. Bid. BOTBESHE. SL<MULH. MI<OECHIAHA THK. Bsezccs | 
| SO<LOB<K, ELRO<KLEBDVE. BEID<KLASAL THUBCBDEDE. BURERILANT 

| 128A. 


L___ =— — = ——— ————— — ————— 
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r\ 





xy. 
4 


pa 


@PC-880ImkII, PC-880imkIISR 


\—Lo#OXK EER 


IMIS te aC EARS. APIADMO-LIL IY 7 
A—L., FORE LAC BIDS SHHNtAY FHCAR 
IME! AltAliIn~—LoB. FV eAlTE~A 





ag 





@FM-7 


GRAND HEXAGON 


FM- 7 ORERES FILIM(Fote, BpR3 BMI AZ a 
—JLVA—ILIV IA VY AF—Ltz, 3ATHEAHtT 
BAIYVEa—% 'TERU, SERET SDA BRITE | 


@MSX(32k) 


BLOOD ARMOR 


PERV FeH-4tVP Ov avtNAI+O-I IU 
+ Z=BLOOD ARMOR CT, WAAL BEASAKA 
(CBR WIAEN. FILUBHMO-V ILIV OAL 


AWD VORMT—LAS<ICRUDS 


MA CIOTDLeSiMlt CUSM2, E 
DcC#ELISRCERSCT-IOTTY. 
BUNSAOMABDITCEET HM. KC 
ARCOB. F-JOTI1TVYVAPSFBNTS 
SCRE. 1EbML<KES\. MA. 


@xivy-z 


SLOT MACHINE 


ARBIEIN DUNKS, BEBIII A vVIANA 
Dy kV¥YYVe7—A, £H, |OMAVT—4EBSL 
CT, F—SHCI. 1.2.3. EM, 1.2.3, AAEM 


@FM-7 


KNIGHT OF LABYLINTH 


HRIBIISHU 3 DAD A714 y7A, AROPAHSH 
KAO SLILALTHIIA! AWNHALSFAL 
A QIEBCIRRPG TE. FEHR E. UDA THE 


@PC-8801> ) -—Zz 


CHUAORRIE 


MARS Faby aU —hLK, RESDOES 


ROI RAYaT-CHUBD, Ate bi=-Ah7T 3 AP 
RATE ICRU LKOT, SHR SIRE I!? 


Pa 





@PC-8801I> ) —X,. FM-7Y)—-z% 

. SWES . ’ . 2 " 
Gat +> YN FFL’ &, DUCRREALCA 
RELI. SAL, KKERARAONABHEBTK £ 
i=: SASMPC-8801\BNT—FJltayr74 ATCT 


GanAz 
See 


@7FNA7 1 





KBRF S17. DL, 
BME COCKER TH 





er se5cH! 
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. | IUIRIPDRAS. KRPFYVEVWNDOWNSHKH FERKDTHS. 201%. 


BABA Es s00GGAeE) 











LOGIN 
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ae pees 






s 
SURE EA raosscer 7 t \. sept: 


SC. RAISSBGCSALISTLOGOI-F—#.. C 
OI—-F-lelkOT 1 YVOASCHASNTUSID 
TFILOIAZKBFNTHICWNS. OFT YTIKT 
OTSLIIAKSGBAICRPBAITSCOC ON ROT 


eee Eisecsmbnacceatite 


AIPC-8801mkI], PC-8801mkIISR*\—L DBOA BR’ JOTI LIAR BRIBN—>D) 





et aes oes RR pS SSRI Se 





kcakaahaaaa * 


SC. SADSTYPYTS, RICH LIE N 
=,SEOARE. “JOUR PH ls Oo 
AOI” DRPGATEBBRESAZOYRYT OY “CHU 
BOBRE’ BCF7BOIOTIIL + REOB/NI 


<<. KEPPTIUCLPIGWADILUTNSDE.W JFIVBASE. ULIFSLBVECS—-E! 


PC-880ImkiI/PC-880ImkiISR 
A—Lo#ZOXBER DJOOSLUAR 


Mi NFOMIAlS, HWHAMAL LUEBST SEA SHEL, BERR CER CEEHA. COPYRIGHT C 1985 by Kenichi Kawahara 


A.'), E9500([RETURN] EL TH 5AbI,. BOK, 
WDATA, 9500, ESFF{[RETURN] ©, HiDJ ARLES 
—7TULREAIZ, e—-TFELTHS. LISTLOG OigfR 
ILRo TH ZF aevA7IGFATFUFIATCHErBAW 
PEI RFovA7ALTHSAILENAWYTM NHN, 
ZHCOTH-LAAG yb NFERKZE, LOAD ‘CAS: MAIN’ 
[RETURN], RUN[RETURN] & Sault, ABAyi< DATA 





















1, L #d* PC-8801mkIISR A2—t#—-PForRH, N88 
VIE-RIC LTS. UTZ A {RD “How Many Files?” 
(z(t, [RETURN] COK#. @MfK, CLEAR, &H94FF 
LH-—K-KRPHAHLES. CHUCK 
elIeNRAT, SH. VAEKLIOMAINT OUTIL 
DFT BAA CWIC7, SHB SAABRZobo: AY 
kize—772, avy FISSAVE “CAS: 77 41%’ 


(RETURN | 7. FOS FLERARACT—-LAZAI—b TS. VAL 
#201 T I) RKZ2D DATAFUFFADFI SAA TI. LISA EV SFY EY ECHVITI4NT 1LFTS 


BASIC €— F2*4 MON [RETURN] CTHE=V7E— Fle RV cra <> 44, ER 


@UAZK1 MAINFZOIFL 


1000 CLEAR ,&H94FF:DEFINT A-Z:DEV=0 
1010 IF DEV=0 THEN *TP 

1020 GOTO *MAIN 

1030 ” 

1040 * 

1050 *PUTMAP 

1060 IF ST.X=-1 THEN ST.Y=0:ST.X=0:END. Y=8:END.X=8 

1070 POKE &HCFBO,Z:POKE &HCFB1,X.:POKE &HCFB2,Y.:POKE &HCFB3,ST.X:POKE &HCFB4,EN 
D.X:POKE &HCFB5,ST.Y:POKE &HCFB6,END.Y:U=USR6(0) :RETURN 

1080 ” 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 





Li Cal BaAA CS Me 



















xUP:Y.=Y.+1:GOSUB *NOC:IF F=1 THEN RETURN 
AD. Y=Y.:U=USR2(0):ST.X=0:END.X=8:ST.Y=8:END. Y=8:GOSUB 
*LF3X.=X.+1:GOSUB *NOC:IF F=1 THEN RETURN 
AD.X=X, :U=USR3(0):ST.X=8:END.X=8:ST.Y=0:END. Y=8:GOSUB 
¥DN:Y.=Y.-1:GOSUB *NOC:IF F=1 THEN RETURN 
AD. Y=Y. sU=USR4(0):ST.X=0:END.X=8:ST. Y=0:END. Y=0:GOSUB 
*¥RT:X.=X.-1:GOSUB *NOC:IF F=1 THEN RETURN 
AD. X=X.sU=USR5(0) sST.X=0sEND.X=01ST.Y=01END. Y=8:GOSUB 


*PUTMAP : RETURN 
*PUTMAP 3: RETURN 























*PUTMAP : RETURN 
*PUTMAP : RETURN 


*NOC : NO=USR1 ( &H7000-Z*&HAOO+Y . ¥128+X. )3 T=0 
IF NO>=&H40 THEN T=2: IF NO>=&H80 THEN T=1 
NO=NO AND &H1iF 

IF NO=0 OR NO=2 THEN F=1 ELSE F=0 

RETURN 


*NOS : POKE &H7O000-Z*¥&HAOO+Y . ¥128+X. ,NO:RETURN 


*xCSL:COLOR@ (CX,CY+I )-(CX+HX,CY+I),4 
KEYO=INP(1):KEY1=INP(9):IF KEYO=255 AND KEY1=255 THEN 1270 
BEEP 1:BEEP 1:BEEP 1:BEEP O 

IF KEY1=191 THEN 1320 

IF KEYO=127 THEN RETURN 

GOTO *CSL 

COLOR@ (CX,CY+I )-(CX+HX,CY+I),0 

I=I+1:IF I>HY THEN I=0 

KEY1=INP(9)31F KEY1<>255 THEN 1340 ELSE *CSL 


*ERC: FOR J=7 TO 17:LOCATE 39,J:COLOR O:PRINT SPC(41):NEXT:RETURN 
1370 *ERC1:FOR J=12 TO 17:LOCATE 39,J:COLOR O:PRINT SPC(41):NEXT:RETURN 
1380 *xERG: LINE (301,49)-(638,100),0,BF:RETURN 

1390: * 

1400 *BEL:FOR I=0 TO 7:FOR J=0 TO 7:BEEP 1:COLOR=(1,J):BEEP 0 

1410 NEXT:COLOR=(1,1):NEXT:RETURN 





F-CVUSBCEBPICVEISRE. C. CORR. ML MRESPCCS<:. END 
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1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
URN 

1660 


F:RETURN 


1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 


212 


*BEL1:FOR I=0 TO 100:BEEP 1:BEEP O:NEXT:RETURN 


*S INPUT 
S$=STRING$(HX, 0°) 

LOCATE CX,CY:PRINT S$ 

A$="" :KEYO=INP(O):KEY1=INP(1):IF KEYO=255 AND KEY1=255 THEN 1470 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
iF 


KEYO=254 
KEYO=253 
KEYO=251 
KEYO=247 
KEYO=239 
KEYO=223 
KEYO=191 
KEYO=127 
KEY1=254 
KEY1=253 
KEY1=127 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


As="0"* 
A$="1" 
A$="2° 
A$="3° 
A$="4" 
Ag$='5° 
A$="6" 
A$="7° 
A$="8° 
Ag="9° 
RETURN 


A$<>"" THEN S$=RIGHT$(S$+A$,HX):BEEP 1:BEEP 1:BEEP 0 
FOR J=0 TO 20:NEXT:GOTO 1460 


*GLIFEs: IF B¢C2)<0 THEN B(2)=0 
LINE (416,8)-(416+B(1)*1,14),2,BF3:LINE (416,8)-(416+B(2)%1,14),4,BFsRETURN 


*GSTI:3 


IF B(12)=0 THEN RETURN 


LINE (416,16)-(416+B(12)*1,22),2,BFi:LINE (416,16)-(416+B(13)%1,22),4,BF:RET 


*GSTDX:LINE (416,24)-(416+B(3)*1,30),5,BF:LINE (416,32)-(416+B(4)*1,38),5,B 


*GEXP: LINE (416,40)-(416+(B(5)/10)*2,46),6,BFs:RETURN 


*GINIT 
LINE (416, 8)-(638,14),0,BF:GOSUB *GLIFE 

LINE (416,16)-(638,22),0,BF:GOSUB *GSTI 

LINE (416,24)-(638,38),0,BF:GOSUB *GSTDX 

LINE (416,40)-(638,46),0,BF:GOSUB *GEXP 

FOR I=O0 TO 20:LINE (416+1#10,2)-(416+1#10,4),73NEXT 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


RETURN 


*GTEKI:LINE (416,64)-(416+C(0)%1,70),2,BF3:LINE (416,64)-(416+C(1)*1,70),4,B 
Fs:LOCATE 48,8:PRINT “LIF*:RETURN 


*xPUTBASI 
IF B(8)=0 THEN POKE &HF260,&H4F:POKE &HF261,&HE2 
IF B(8)=1 THEN POKE &HF260,&H6E3:POKE &HF261,&HE3 
IF B(8)=2 THEN POKE &HF260,&H8D:POKE &HF261,&HE4 
U=USR( &HCO00+25*80+40 ) 

IF BC10)=0 THEN POKE &HF260,&HO :POKE &HF261,&HEO 
IF B(10)=1 THEN POKE &HF260,8&HCS:POKE &HF261,&HEO 
IF B(10)=2 THEN POKE &HF260,&H8A:POKE &HF261,&HE1 
U=USR( &HCO000+12%80+40 ) 

RETURN 


*xPUTTEKI 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA C7,90 
DATA C9,72 
DATA CB,54 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
FE 
IF 
IF 


LOGIN 


48,1:PRINT “LIF* 
48,2:PRINT “STI° 
48,3:PRINT “STR* 
48,4:PRINT ‘DEX* 
48,5:PRINT “EXP* 


BO,00,10,10,10,4,2,3,0,07" 9» 
B1,6A,18,18,18,8,8,5,0,P7y 
B2,D4,42,42,42,32,16,8,0,7749» 
B4,3E,8,8,8,2,0,1,7, w-» 
BS,A8,18,18,18,7,1,1,11,9Y-Y 
B?7,12,28,28,28,13,2,6,18, 9° 9F- 
B8,7C,47,65,40,35,32,8,25,29¢hb» 
B9,E6,80,80,80,64,50,10,32, 7° »7"- 
BB,50,150,120,80,190,100,100,48,97-7 
BC,BA, 70,80,120,216,100,80,52," %-4 
BE,24,150,100,120,216,100,100,102,9-v#s 
BF ,8E,70,120,100,216,100,100,111,9«4¥"-hk* 
CO,F8,150,180,150,346,210,100,0,€-9 
C2,62,150,150,180,280,216,120,0,I1yh*- 
C3,CC,200,180,180,350,240,130,0,9"s- 
C5,AE,220,200,200,360,250,140,0, %75yI"- 


N>-1 THEN GOSUB *BEL1 
RESTORE 1970 
RESTORE 1980 
RESTORE 1990 
RESTORE 2000 
RESTORE 2010 
RESTORE 2020 
RESTORE 2030 
RESTORE 2040 
RESTORE 2050 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


Z22222222 


OODNAUSPWNRE 
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FFUDS. FRVDOSREOR, ROR. MOR, SORE. SCORCACEORCMIFSCCHTES. 5 
BWRBEGD CVE BEISA NED. REO SRIF SB597\, RBVS173%, HS127, BB 
BIS222\iTIF. BED CLA BSld,. SORRY ROBPODECL, $31 BRDPSOUBAETOR. 











; 
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2270 IF N=10 THEN RESTORE 2060 
2280 IF N=11 THEN RESTORE 2070 
2290 IF N=12 THEN RESTORE 2080 
2300 IF N=13 THEN RESTORE 2090 
2310 IF N=14 THEN RESTORE 2100 
2320 IF N=15 THEN RESTORE 2110 
2330 IF N=16 THEN RESTORE 2120 
2340 IF N=0 THEN RESTORE 2130 

2350 IF N=-1 THEN RESTORE 2140 
2360 IF N=-2 THEN RESTORE 2150 


2370 READ A$,B$:POKE &HF260,VAL( *&h'+B%$):POKE &HF261,VAL( °&h" +A$) 


2380 IF DEV=1 THEN BLOAD "t"+STR#(N)+°.dat’,&HDEOO:POKE &HF260,0:POKE &HF261, &HD 


E:GOTO 2400 

2390 FOR I=0 TO 100:NEXT 
2400 U=USR( &HCO00+54*80+40 ) 
2410 IF N<O THEN RETURN 


2420 IF N=0 THEN C$="0Y39":C(0)=10:C(1)=1:RETURN 


2430 FOR I=1 TO 7? 

2440 READ A:C(1)=FNN(A) 

2450 NEXT 

2460 C(0)=C(1) 

2470 READ C$ 

2480 RETURN 

2490 ° 

2500 *BUKISHOP 

2510 GOSUB *ERC:LOCATE 40,7:PRINT ‘Return’ 
2520 FOR I=1 TO 6 

2530 LOCATE 40,7+I 

2540 PRINT USING *& & 
2550 NEXT 


2560 LOCATE 40,15:PRINT “395977 JIN 7° FRLELTLFE" Zo 
2570 LOCATE 40,16:PRINT ‘“3*>t*4/ 7TI/ 7" FN C* 


2580 LOCATE 40,17:PRINT “t## A °3B(20)3° Gold F°2 ° 


2590 I=0 


sBUKI$(B(6))3 


#HHHH Gold’ ;BUKI$(1);BUKI(1I)*10 


2600 CX=40:CY=7:HX=8:HY=6:GOSUB *CSL:IF I<>0 THEN 2650 
2610 LOCATE 40,15:PRINT “h"9€ PUD" bO IS" 1ISI 
2620 LOCATE 40,16:PRINT “W9/ 4339 AVFSF TVIA-- +: 


2630 LOCATE 40,17:PRINT “Hit CRETURNJ Key! 


2640 IF INP(1)=127 THEN GOSUB *ERC:RETURN ELSE 2640 
2650 BEEP: IF BUKI(I)*10>B(20) THEN 2660 ELSE 2670 


2660 LOCATE 40,15:PRINT “SYL4F* 20" ANAND” PITLAIF" 2. 


RDS Top 


2670 B(20)= B(20)- ~BUKI(1)*10:B(6)=1:B(7) had Suet xPUTBASI 





ADAPT*F* AN?" 
7) x*Q" 


-2?°:GOTO 2600 


";GOTO 2620 


2680 LOCATE 40,15:PRINT “40777* VIK= PUD" bO °F” 

2690 

2700 *SUITSHOP 

2710 GOSUB *ERC:LOCATE 40,7:PRINT “Return’ 

2720 LOCATE 40,8 

2730 PRINT USING *& & #HHHH Gold’ ;SUIT$(1)s;SUIT(1)*10 
2740 LOCATE 40,15:PRINT ‘4V# 1 2°oF99-1/ S°avsey F°—2!" 
2750 LOCATE 40,16:PRINT ‘“7T9/ YTFN/N C*3SUITS$(B(8))3°] 3———" 
2760 LOCATE 40,17:PRINT “t##\ °3B(20)3° Gold 20° 

2770 1=0 

2780 CX=40:CY=7:HX=9:HY=1:GOSUB *CSL:IF 1<>0 THEN 2830 

2790 LOCATE 40,15:PRINT =? DLIYF% 9S? 

2800 LOCATE 40,16:PRINT “YS57TH7-°°-: 

2810 LOCATE 40,17:PRINT ‘CRETURNI Key 459% %3794---°° ADT AF" DLW?" 


2820 IF INP(1)=127 THEN GOSUB x*ERC:LOCATE 40,11:PRINT “(975 W9/2- 


";FOR I1=0 TO 2000:NEXT:GOSUB *ERC:RETURN ELSE 2820 
2830 BEEP:IF SUIT(1)*10>B(20) THEN 2840 ELSE 2850 
2840 LOCATE 40,15:PRINT “4Se—— t"Lt E9Y/ILSF! ALA* FAb—-bPH LITT’ 
2850 B(20)=B(20)-SUIT( I )*10:B(8)=1:B(9)=SUIT(I):GOSUB *PUTBASI 
2860 LOCATE 40,153:PRINT “DYFILF OLE1G FE €9 DIZIF VPITITHIA: :: 


2870 

2880 *HELMSHOP 
2890 GOSUB *ERC:LOCATE 40,7:PRINT “Return’ 
2900 LOCATE 40,8 

2910 PRINT USING *& & 


2920 LOCATE 40,15:PRINT “439500 \WXYKF FIZ“ USF AVIZRo 
2930 LOCATE 40,16:PRINT “?7t9/ YOFN/N C* ZSHELM$(B(10)); 


2940 LOCATE 40,17:PRINT “t## YA "3B(20)3° Gold F"20° 


2950 1=0 


#H#HHH Gold’ ;HELM$(1);HELM(1)*10 


ADDY FR? 
"a Fre” 


2960 CX=40:CY=7:HX=6:HY=1:GOSUB *CSL:IF I<>0 THEN 3010 


2970 LOCATE 40,15:PRINT “7UD"hD IH" (VSI 


2980 LOCATE 40,16:PRINT “44 9E"F AYY"T DI" 9L. 


2990 LOCATE 40,17:PRINT “Hit CRETURN] Key! 


3000 IF INP(1)=127 THEN GOSUB *ERC:RETURN ELSE 3000 
3010 BEEP: IF HELM(1)*10>B(20) THEN 3020 ELSE 3030 
3020 LOCATE 40,15:PRINT “4D2N" PULL ADRI AILSF FFII VL 6 


3040 LOCATE 40,15:PRINT “AD477"* PUN"“bD I H"1I2Ze 


3050 
3060 *KUSURISHOP 


3070 GOSUB *ERC:LOCATE 40,7 :PRINT “393%4°°-: 


3080 LOCATE 40,8 :PRINT "13 5 Gold #*2° 
3090 I=0 

3100 LOCATE 40,9 :PRINT ‘?T9IN 12° 3B(18)3° 
3110 LOCATE 40,10:PRINT “Sas"4#A °3B(20) 


J 
3120 LOCATE 40,11:PRINT ‘40(73"~ T9L72D 2° 





REOKODEVEFICMS. FSC. BULTNZANTWBWUDIZ, EVISHNTLEDE. RBUKIFI 


DDO. FICMHERAZS. BNNS151I0\T. 176515. 


RVF EOFIIR*? +2" 


2 
Gold F*2° 


:GOTO 2780 


*“:GOTO 2800 


*“:GOTO 2960 


3030 B(20)=B( 20 )-HELM( I )*10:B(10)=1:B(11)=HELM(1):GOSUB *PUTBASI 
*:GOTO 2980 








JSF NN. AFAVF AVVSFIRA ©" 
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3130 LOCATE 40,14:PRINT “Return* 
3140 LOCATE 40,15:PRINT ‘Yes* 


3150 CX=40:CY=14:HX=6:HY=1 : GOSUB 


*CSL:IF I=0 THEN 3180 


3160 BEEP:IF 5>B(20) THEN LOCATE 40,17:PRINT ‘402D" 95T139F"2------ *;GOTO peal 
3170 B(18)=B(18)+1:I1F B(18)>100 THEN LOCATE 40,17:PRINT "1002 435"39A €F2tY-- ++ "3 
B(18)=100:GOTO 3150 ELSE B(20)=B(20)-5:GOTO 3100 


3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
23) 

3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 


3360 
3370 
3380 
3390 
3400 
3410 
3420 


3430 


3440 
3450 


3470 
3480 
3490 
3500 
3510 
3520 
3530 


3540 LOCATE 40,11:PRINT 
LOCATE 40,13:PRINT “No 


3550 
3560 
3570 
3580 
3590 


LOCATE 


40,17:PRINT 


"bh" 9E PUD*HO I H°7I2. Hit CRETURNI Key!* 


IF INP(1)=127 THEN GOSUB *ERC:RETURN ELSE 3190 


*BANK 
GOSUB 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 
LOCATE 
|.OCATE 
I=0 


¥ERC 
40,7 :PRINT 


"L9I4TV~PLIV. J 


ah: ¥°239F" 


IH" 4 IWR 


40,9 :PRINT USING “3° >4*4 VIS EFFLN HHHHH Gold’ 3B(20) 
Ftvi\ HHHHHH Gold #°2°3B(22)*10000+B( 


40,10:PRINT USING * 


40,12:PRINT 
40,13:PRINT 


40,15:PRINT 


“JSON tyF 
“Return’ 

40,14:PRINT ‘= 
"Sisty2n- 


19FL AN’ 


Wo" ¢Wa9de' 


CX=40:CY=13:HX=7:HY=2:GOSUB *CSL:IF I=0 THEN RETURN 
IF I=2 THEN 3400 
LOCATE 40,17:PRINT "4795 =194>) Tf 
CxX=59:CY=17:HX=5:GOSUB *SINPUT 

IF VAL(S$)>B(20) THEN LOCATE 40,17:PRINT 
P:GOTO 3310 
S!=B(22)*10000+B( 23 )+VAL( S$) :B( 20 )=B(20)-VAL(S$) 

IF S!>10000 THEN B(22)=INT(S!/10000) ELSE B(22)=0 


B(23)=S!-B(22)*10000 


Y4IAN 7 


“YYTL ADNAN Esk Wey! “ ;BEE 


GOSUB *ERC:LOCATE 40,7:PRINT “7UD" b9 I" 9° 4%Ze" GOTO 3240 


LOCATE 


40,17:PRINT 


"499 4et9"> 


CX=59:CY=17:HX=5:GOSUB *SINPUT 
IF VAL(S$)>B(22)*10000+B(23) THEN LOCATE 40,17:PRINT “YoTD APA*DY SFAVILY! 


* 3BE 


EP:GOTO 3310 


TYLIIAN? 


IF VAL(S$)+B(20)>15000 THEN LOCATE 40,17:PRINT °15000 Gold £3*39 €F7ty! 
“;BEEP:GOTO 3310 
$!=B(22)*10000+B(23)-VAL (S$) :B(20)=B( 20 )+VAL(S$) 
GOTO 3370 
3460 “ 


*BYOUI 
GOSUB 


N 
xERC 


LOCATE 40,7:PRINT “A595 91 Io II taf YF" 20" 
LOCATE 40,8:PRINT “#2°949 N99°9 TAS IZe" 
IF B(1)= B(2) THEN LOCATE 40, 10:PRINT “#¥3a9/ EVAN pears, 20° :GOTO 3580 


LOCATE 40,10:PRINT “F¥a9=/" SBC 1)- -B(2)3° 


Gold tY¥aoF"2: 


IF .BCi)= B(2)>B(20) THEN LOCATE 40,11:PRINT *---" 4030" 9YIeY!*:GOTO 3580 


"3034 F*2n?° 
“s;LOCATE 40,14:PRINT “Yes’ 


1=0 :CX=40:CY=13:HX=3:HY=1:GOSUB *CSL:IF I=0 THEN 3580 
B( 20 )=B(20)-(B(1)-B(2)):B(2)=B(1):GOSUB *GLIFE 
LOCATE 40,16:PRINT “Hit CRETURN] Key!“ 


IF INP(1)=127 THEN GOSUB 


3600 “ 


3610 
3620 
3630 
3640 
3650 
3660 
3670 


* HOME 
GOSUB 
L=B(0) 
IF LX 
LOCATE 
LOCATE 
LOCATE 


*ERC:N=-1:GOSUB *PUTTEKI 


=2Z 
40,12:PRINT ° 


FA*-354953. QV 


=0 OR B(19)=L THEN 3650 ELSE 3690 


ote" Sat" 


*ERC:RETURN ELSE 3590 


sop" 99>" 


40,13:PRINT “YoTIbFTA AJ BBIDD P*45aY2AMIbN FY Fy" I" 


40,14:PRINT 


3680 BEEP:GOTO 3720 
3690 IF B(19)=0 THEN LOCATE 40,12:PRINT “41> EF"*Y/ JOY-STICK 9 ¥2*TH!*sLOCATE 4 


0,133 


PRINT 


"SbF" CsY7 9Y° 
3700 LOCATE 40,12:PRINT 


> YPOTKD* F* 
"3ID* YN" 9! 


Hy" 1" BC 
YJ $3929" | 


“hOFPUN JIF*IIFIMDF SDVUK FED PyYTFIC II" 


12)=10:GOTO 3710 
bi 


3710 BEEP:B(19)=L:B(12)=B(12)+FNR(5)+B(14)%.1:B(13)=B(12):GOSUB *GSTI 
3720 LOCATE 40,16:PRINT ‘Hit CRETURN] Key!° 
3730 IF INP(1)=127 THEN GOSUB *ERC:GOSUB *ERG:RETURN ELSE 3730 


3740 


é 


3750 *KYOUKAI 
3760 GOSUB *ERC:IF B(21)=1 THEN LOCATE 40, 10:PRINT “9*LtE 4t4...°:GOTO 3880 
3770 LOCATE 40,10:PRINT 
3780 LOCATE 40,15:PRINT “Hit CRETURNI Key!° 


3790 IF INP(1)=127 THEN 


3800 LOCATE 40,10:PRINT ° 


3810 LOCATE 40,13:PRINT 


3820 LOCATE 40,14:PRINT 
3830 CX=40:CY=13:HX=3:HY=1:1=0:GOSUB *CSL:IF I=1 THEN GOSUB *ERC:GOTO 3900 
3840 GOSUB *ERC 

3850 B(14)=B(14)-30 

3860 LOCATE 40,10:PRINT * 
3870 LOCATE 40,11:PRINT * 
3880 LOCATE 40,15:PRINT “Hit [RETURN] Key!° 
3890 IF INP(1)=127 THEN RETURN ELSE 3890 
3900 IF B(14)>110 THEN 3950 
3910 B(14)=B(14)+FNR(1) 
3920 LOCATE 40,10:PRINT * 
3930 LOCATE 40,11:PRINT * 
3940 GOTO 3880 
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“JID” #I1-- 


| ITIS NN SEA?s” 


“No 


“Yes’ 


FYOR* AN: ++ 


PUD" hos 8 #5 


FPUDT KO: +: 
THEFTS T 419 


GOSUB *ERC:GOTO 3800 ELSE 3790 


D*FIRe ss YJ 3909 94CY=4° 








ScRNAITNI 


Blk iADIa. FBS. SISSRBCIL, 1099 71TIO2H4O, FAPHNSEIS1 LK. BAA 
NUE, BORAE1 MS. BSEFNTCRDIIFEBSIZ, 212NiE. 


3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 


4430 “ 


4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
6,D9 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
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N=-2:GOSUB *PUTTEKI:BEEP 

LOCATE 40,10:PRINT “"D9S9FN PTIF WII! 4" 

LOCATE 40,15:PRINT * Hit CRETURNI Key! * 

IF INP(1)=127 THEN GOSUB *ERC:BEEP ELSE 3980 

LOCATE 40,9 :PRINT “"J/I=ZN LDIF IF EY * 

LOCATE 40,10:PRINT “ Eh 39R¢KD" PD"4L SYS" PIW IIPS...” 
LOCATE 40,11:PRINT °© 717U-3YbK*/ bE“ DA cODL.* 

LOCATE 40,12:PRINT © 1Xh #&*° 9D SFP7LIVISI...* 

LOCATE 40,13:PRINT * 9939F€ 7°UDt2 OVI b EZ" 

LOCATE 40,14:PRINT ° S797 EKE"I AINSF (VWI..0ee * 

LOCATE 40,15:3PRINT * ...Y9.0. PYMY PMIF Ne cccccceceveve a. 
LOCATE 40,17:PRINT * Hit CRETURN] Key!° 

IF INP¢€1)=127 THEN GOSUB *ERC:BEEP ELSE 4070 

LOCATE 40,9 sPRINT “"ace TUN TF @ZeSy°3a"= b r/y* 

LOCATE 40,10:PRINT © 9939%/ 7°UYt2 OVI F HII" 

LOCATE 40,11:PRINT © 447/ 7729 BEMIS VI. eevee 

LOCATE 40,12:PRINT ° TAWA DOKL... ERE" KA 1X9 OSF9F 14759" 
LOCATE 40,13:PRINT * Yo. JW 39RIN DISIFISTK TYPSIIIIF 2° 
LOCATE 40,14:PRINT © 2729 ALKANIX-. IISIFN PAT * 

LOCATE 40,15:PRINT ° 7x17U-3Yb"/ bE“ 9? ho Sbcsieewe. 
LOCATE 40,16:PRINT * JI7" AXISLE"H 1DSHI WIFLIIF A a ceeevea 
LOCATE 40,17:PRINT *© Hit CRETURN] Key!* 

IF INP(1)=127 THEN GOSUB *ERC:BEEP ELSE 4170 

LOCATE 40,9 :PRINT ""?T9= be" >/ DED PY"TIZ..” 

LOCATE 40,101PRINT © YS DE’F* bE"OD CPF... 2c ce” 

LOCATE 40,11:PRINT ° PTIS 19FF* PYD ITD. ccrrvee 

LOCATE 40,12:PRINT * 9939F/ 7°ULER DVI F ADWVFIIN GLI" 
LOCATE 40,13:PRINT " 129 95F9F474 PTITS F9bPLH ABT 2 
LOCATE 40,14:PRINT * 9Y95D99 FIPU-FUANF MVE“ SFIP GL eee” 
LOCATE 40,15:PRINT " 223.00 FR 996 oo ABDI, corvccvveees 
LOCATE 40,17:PRINT * Hit CRETURN] Key!* 

IF INP(1)=127 THEN GOSUB *ERG ELSE 4260 
B(21)=1:B(14)=B(14)+5:RETURN 

*KYOUKAI 4 

GOSUB *ERC 

IF B(25)=1 AND B(26)=1 THEN GOSUB 4380:GOTO 4400 

LOCATE 40,10:PRINT "ht" 3/ TODD ZI FN NYS" 


LOCATE 40, 11:PRINT “493 €39D" 7ZYOD" COKE B2"<** 
LOCATE 40,12:PRINT "42/ FD9IF"N THI NAHIMA FETT I" 

BEEP 

LOCATE 40,17:PRINT * Hit CRETURNI Key!° 

IF INP(1)=127 THEN RETURN ELSE 4370 

FOR A=0 TO 10:FOR I=0 TO 7:SCREEN 1,1,,]1 

BEEP i1:FOR J=0 TO 10:NEXT:BEEP O:NEXT:NEXTsRETURN 
AD.X=78:X.=AD.X:ST.X=5:END.X=8:ST.Y=0:END.Y=8:GOSUB *PUTMAP 


GOSUB *BEL:GOSUB *BEL:SCREEN 0,0:GOSUB *BEL:RETURN 
“-CMain. .J- 

*xMAIN 

DEF FNR(A)=INTCRND(1)*CA+1)) 

DEF FNN(A)=.1%(FNRCA)*(FNR(1)*2-1))+A 

DEF FNHIT(A,B)=FNN(A) >FNN(B) 

DEF FNDAM(A,B)=FNN(A)-FNN(B) 

DEF USR =&HAFOO-DEV*10390 

DEF USR1=&HF 350 

DEF USR2=&HAF 38-DEV*10390:DEF USR3=&HAF 67-DEV*10390 
DEF USR4=&HAF96-DEV*10390:DEF USRS=&HAFC9-DEV¥10390 
DEF USR6=&HCFOO:NDEF USR7=&H35D9:DEF USR8=&HF374 
RANDOMIZE VAL(LEFTS( TIMES, 2) )+VAL(MID$( TIMES, 4,2) )+VAL.CRIGHTS( TIMES, 2) ) 


ON ERROR GOTO *ERROR. 
DIM B(39),C(7),BUKI$(6),BUKI(6) ,SUIT$(2),SUIT(2) ,HELM$(2),HELM(2) 


DATA 27° 6 1a747 5 35 3989s By 975627 TP 56459951255 91 EEN = 5 216 
DATA T39¥,2,N°9-b*2-9,50,2N° Se h2-4, 100 

DATA T3,1,AWX9K, 10, 20° SPNANX4YK, BO 

RESTORE 4620 

FOR I=0 TO 6:READ BUKI$(1),BUKI(CI):NEXT 

FOR I=0 TO 2:READ SUIT$(I),SUITCI):NEXT 

FOR I=0 TO 2:READ HELM$(1),HELM(I):NEXT 

DATA DO,00,00,C2,01,84,02,46,03,08,03,CA,04,8C,05,4E,05,4E,06,02,07,94,08,5 
18,09,DA,DA,9C,0B,5E,0C,20,0C,E2,09,0A,D4,8C,06,10 
RESTORE 4690 

FOR I=&HF320 TO &HF320+41 

READ AS:POKE I,VAL(*&H"+A%) 

NEXT 

DATA 54,50, 7E,23,66,6F,F3,3A,C2,E6,F6,06,03,31,32,C2 
DATA E6,7E,12,AF,13,12,3A,C2,E6,E6,F9,03,31,32,C2,E6 
DATA FB,3E,02,C9,21,00,95,11,00,66,01,FF,19,ED,B0,C9 
RESTORE 4740 

FOR I=&HF350 TO &HF37F 

READ A$:POKE I,VAL( "&H' +A) 

NEXT 

DATA 4B,45,4E,49,43,48,49,20,4B,41,57,41,48,41,52,41 
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4820 RESTORE 4810:K$="" 

4830 FOR I=0 TO 15 

4840 READ A$:K$=K$+CHR$( VAL ( “&H" +AS) ) sNEXT 

4850 FOR I=6 TO 10:KEY I, “Ken&Tomoyo* :NEXT 

4860 ” 

4870 IF DEV=1 THEN BLOAD ‘“map.dat’,&H6600:BLOAD “gdat.dat’:BLOAD ‘groll.sub",&H8 
66A ELSE POKE &HCFSF,5:POKE &HCF90, &HAF : U=USR8(0 ) 

4880 ° 

4890 WIDTH 80,25:CLS:CONSOLE 19,5,1,0 

4900 FOR I=0 TO 7:COLOR =(1I,1):NEXT 

4910 SCREEN 0,1:COLOR ,0:CLS 2:SCREEN 0,0 

4920 LINE (300,0)-(639,144),7,B:LINE (300,48)-(639,48),7:VIEW (0,0)-(638,199) 
4930 ° 

4940 GOSUB *TITLE 

4950 “ 

4960 GOSUB *PUTBASI:GOSUB *GINIT 

4970 X.=AD.X:Y.=AD.Y:ST.X=-1:HOSHI=0:GOSUB *PUTMAP 

4980 * 

4990 LOCATE 16,8:PRINT *r 4° 

5000 LOCATE 16,9:PRINT “& 4° 

5010 * 

5020 ~ 

5030 *KEYIN 

5040 X.=AD.X:Y.=AD.Y:GOSUB *NOC:IF NO=18 THEN NO=19:GOSUB *NOS 

5050 IF Z=0 THEN 5150 

5060 IF NO=13 THEN BEEP:LOCATE 40,10:PRINT “EFEK* HLH: +>: !°sFOR I=O0 TO 1000:NEXT:Z 
=0:GOSUB *ERC:GOTO 5150 

5070 IF X.=37 AND Y.=13 THEN IF B(28)=0 THEN B(28)=1:POKE &HF344,&HD4:POKE &HF34 
5,&H8C:ST.X=-1:GOSUB *PUTMAP 

5080 IF NO=7 OR NO=8 THEN B(13)=B(13)%.1:GOSUB *GSTI:B(2)=B(2)-30:GOSUB *GLIFE:I 
F B(2)<=0 THEN *SHINDA 

5090 IF X.=74 AND Y.=5 AND B(25)=0 THEN K=3:N=13:GOTO *TEKI 

5100 IF X.=74 AND Y.=9 AND B(26)=0 THEN K=4:N=14:GOTO *TEKI 

5110 IF X.=116 AND Y.=7 AND B(27)=0 THEN K=5:N=15:GOTO *TEKI 

5120 IF X.=117 AND Y.=? THEN K=6:N=16:GOTO *TEKI 

5130 IF T=2 THEN 5280 

5140 IF RND(1)>.15 THEN 5280 ELSE N=11+FNR(1):K=1:GOTO *TEKI 

5150 IF NO=8 THEN N=8:K=2:GOTO *TEKI 

5160 IF T=2 THEN 5280 

5170 IF T=1 THEN IF RND(1)>.5 THEN 5200 ELSE 5280 

5180 IF RND(1)>.1 THEN 5280 

5190 IF RND(1)>.6 THEN N=1+FNR(2):K=0:GOTO *TEKI 

5200 K=1 

5210 IF Y.>15 THEN 5240 

5220 IF X.<45 THEN N=9+FNR(1):GOTO *TEKI 

5230 N=6+FNR(1):GOTO *TEKI 

5240 IF X.<33 THEN N=4:GOTO *TEKI 

5250 IF X.<58 THEN N=5:GOTO *TEKI 

5260 N=5+FNR(1):GOTO *TEKI 

5270 ° 

5280 KEYO=INP(O):KEY1=INP(1):KEY3=INP(3) :KEY4=INP( 4) sKEY7=INP(7) :KEY8=INP(8) 23 1F 
KEYO=255 AND KEY1=255 AND KEY8=255 THEN 5280 

5290 IF KEY1=127 THEN *COMMAND 

5300 IF KEYO=251 THEN GOSUB *UP:GOTO 5360 

5310 IF KEYO=239 THEN GOSUB *RT:GOTO 5360 

5320 IF KEYO=191 THEN GOSUB *LF:GOTO 5360 

5330 IF KEY1=254 THEN GOSUB *DN:GOTO 5360 

5340 IF KEY8=223 AND KEY4=247 AND KEY3=223 AND KEY7=253 THEN BEEP:B(13)=B(12):G0 
SUB *GSTI 

5350 GOTO *KEYIN 

3360 IF F=0 THEN IF B(12)<>B(13) THEN B(13)=B(13)4+1:LINE (415+B(13)%1,16)-(416+B 
(13)%1,22),4,BF 

5370 BEEP 1:BEEP i1:BEEP 1:BEEP O:GOTO *KEYIN 

5380 ° 

5390 ° 

5400 *COMMAND 

5410 DATA Return,Report,Enter,Drink,Rest,Move, Jump,Stick,Save,Menu 

5420 RESTORE 5410:FOR I=7 TO 16:READ A$:COLOR O:LOCATE 40,I1:PRINT AS:NEXT 

5430 ” 

5440 I=0 

5450 CxX=40:CY=7:HX=6:HY=9:GOSUB *CSL:IF I=0 THEN 5470 ELSE IF I=9 THEN RUN 

5460 ON I GOSUB *RP,*EN,*DR, RE, *MV, JP, ST, *SV 

5470 GOSUB *ERC:GOTO *KEYIN 

5480 * 

5490 *MV:IF Z<>0 THEN 5590 

5500 IF X.=117 AND (Y.=6 OR Y.=8) THEN 5510 ELSE 5530 

5510 BEEP:Y.=7:NO=5:GOSUB *NOS:Y.=AD.Y:ST.X=4:END.X=4:ST.Y=3:END.Y=5:GOSUB *PUTM 
AP 

5520 BEEP:RETURN 

5530 IF X.=25 AND Y.=23 THEN BEEP:AD.X=40:AD. Y=8:RETURN 

5540 IF X.=40 AND Y.=8 THEN BEEP:AD.X=25:AD. Y=23:RETURN 

5550 IF X.=40 AND Y.=26 THEN BEEP:AD.X=122:AD. Y=27:RETURN 

5560 IF X.=8 AND Y.=22 THEN BEEP:AD.X=25:3AD. Y=23:RETURN 

5570 IF X.=4 AND Y.=9 AND B(28)=1 THEN BEEP:AD.X=45:AD. Y=8:Z=1:RETURN 

59580 IF X.=4 AND Y.=4 AND B(29)=0 THEN POKE &HF33A,&HDS:POKE &HF33B, &H4E:B(29)= 
1:BEEP 1:ST.X=-1:GOSUB *PUTMAP:BEEP 0:RETURN 

59590 IF X.=38 AND Y.=9 THEN 5600 ELSE RETURN 

5600 IF NO=14 THEN NO=15 ELSE NO=14 

5610 GOSUB *NOS:ST.X=4:ST.Y=4:END.X=4:END.Y=4:GOSUB *PUTMAP:BEEP:RETURN 
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5620 

5630 *EN:IF Z<>0 THEN IF X.=65 AND Y.=7 THEN GOSUB *KYOUKAI1:RETURN ELSE RETURN 
5640 IF X.=8 AND Y.=22 THEN GOSUB *HOME 

5650 IF X.=65 AND Y.=7 THEN GOSUB *KYOUKAI 

5660 IF X.=22 AND Y.=22 THEN GOSUB *BUKISHOP 

5670 IF X.=23 AND Y.=22 THEN GOSUB *BANK 

5680 IF X.=24 AND Y.=22 THEN GOSUB *KUSURISHOP 

5690 IF X.=22 AND Y.=24 THEN GOSUB *SUITSHOP 

5700 IF X.=23 AND Y.=24 THEN GOSUB *HELMSHOP 

5710 IF X.=24 AND Y.=24 THEN GOSUB *BYOUIN 

5720 IF X.=4 AND Y.=9 THEN 5730 ELSE RETURN 

5730 ~ 

5740 GOSUB *ERC:IF B(21)=0 THEN LOCATE 40,10:PRINT “D#"°9 €9R FTIN THI ALHIKN FF 
t4'!°:;BEEP ELSE 5770 

5750 LOCATE 40,17:PRINT “Hit CRETURN] Key!" 

5760 IF INP(1)=127 THEN GOSUB *ERC:RETURN ELSE 5760 
5770 LOCATE 40,10:PRINT “hE" IN EDLIIIII 

5780 LINE (0,0)-(288,144),0,BF 

5790 LOCATE 40,10:PRINT “2¥a79 DYS*A!!!" sBEEP 

5800 FOR I1=0 TO 800:NEXT 

5810 Z=1:ST.X=-1:GOSUB *PUTMAP:GOSUB *BEL:RETURN 


5820 
5830 *JP:IF X.<>38 OR Y.<>9 THEN RETURN 
5840 GOSUB *ERC:LOCATE 40,10:PRINT *3* *----- y7* 1)" sBEEP Ss BEEP 


5850 A=21:I1F NO=14 THEN A=-21 
5860 AD.X=AD.X+A:X.=AD.X 
5870 ST.X=-1:GOSUB *PUTMAP : RE TURN 


5880 

5890 *RP:GOSUB *ERC 

5900 LOCATE 40,7 :PRINT USING “CLEVEL- 3 HHH CSTR: J ###°;3B(0);B(3) 

5910 LOCATE 40,8 :PRINT USING “CLIFE--] ##8/##4# CDEX: J ###°3B(02);B(1)3 
BC 4a) 

5920 LOCATE 40,9 :PRINT USING “CSTICK:] ###/### CEXP:) ###°3B(°13);B(12 
»3B(5)/10 

5930 LOCATE 40,10:PRINT * 2255555555 5555255SS5S5EEES2=S=S======'" 

5940 LOCATE 40,11:PRINT USING “CWEAPON] & & CORUGI ##4#° ;BUKI$(B(6) 
»;B(18) 

5950 LOCATE 40,12:PRINT USING “CSUIT-:-] & & CGOLDI #H#H#HH" » SUITS(B(8) 
»;B(20) 

5960 LOCATE 40,13:PRINT USING “CHELM::] & & CBANKI ##HHHH s HELMS (BC 10 
))3B(22)*10000+B( 23) 

5970 LOCATE 40,14:PRINT * = =52555555555555555555SSE=2E5EE5ES=====" 


5980 LOCATE 40,15:IF B(19)>0 THEN PRINT “CJOY-STICKI °; 
5990 IF B(21)=1 THEN PRINT “CKEYI" 


6000 LOCATE 40,17:PRINT “Hit CRETURN] Key!° 
6010 IF INP(1)=127 THEN GOSUB *ERC:RETURN ELSE 6010 
6020 * 

6030 *DR 


6040 GOSUB *ERC:B(18)=B(18)-1:IF B(18)<O THEN B(18)=O:LOCATE 40,7:PRINT “72UN" Ff 
4'!*:;BEEP:GOTO 6070 

6050 B(2)=B(2)+FNR(6)+6: IF BC2)>B(1) THEN B(2)=B(1) 

6060 GOSUB *GLIFE:BEEP 1:BEEP 1:BEEP 1:BEEP 0 

6070 LOCATE 40,10:PRINT “Hit CRETURN] Key! * 

6080 IF INP(1)=127 THEN RETURN ELSE 6080 

6090 ° 

6100 *RE:GOSUB *ERC:GOSUB *NOC:IF NO=1 THEN B(18)=B(18)+1:GOTO *DR ELSE RETURN 
6110 * 

6120 *ST:GOSWB *ERC 

6130 LOCATE 40,7:PRINT “Return* 

6140 LOCATE 40,8:PRINT “CTRL+CKI° 

6150 LOCATE 40,9:PRINT “HELP* 

6160 I=0 

6170 CX=40:CY=7:HX=7:HY=B(19):IF HY>2 THEN HY=2 

6180 GOSUB *CSL:IF I=0 THEN RETURN 

6190 IF 1*10>B(13) THEN LOCATE 40,14:PRINT “#09D" 9UT4!!1°:BEEP:GOTO 6170 
6200 B(13)=B(13)-1%10:GOSUB *GSTI 

6210 ON I GOTO 6230,6220 

6220 B(2)=B(1):GOSUB *GLIFE:RETURN 

6230 B(2)=B(2)*.05:GOSUB *GLIFE:IF B(2)=0 THEN *®SHINDA 

6240 IF Z=1 THEN Z=0 

6250 AD.X=8:X.=8:AD.Y=22:Y.=22:ST.X=-1:GOSUB *BEL:GOSUB *xPUTMAP:GOSUB *BEL 
6260 RETURN 

6270 * 

6280 *SV:GOSUB *ERC:IF Z<>-1 THEN 6300 

6290 LOCATE 40,8 :PRINT “Y#*/ 9t*= YFI #¥979-7 SAVE 392!":GOTO 6310 

6300 LOCATE 40,8 :PRINT “#*579- 9 SAVE 322!° 

6310 IF DEV=0 THEN S$="":GOTO 6340 ELSE LOCATE 40,9 sPRINT “#*3979- \ 10 1 YF" SA 
VE F° FIZ!" 

6320 LOCATE 40,11:PRINT “774% No.(0-9)? * 

6330 CX=55:CY=11:HX=1:GOSUB *SINPUT 

6340 LOCATE 40,13:PRINT “S394 ¢4F"2n? No" 

6350 LOCATE 40,14:PRINT * Yes’ 

6360 CX=60:CY=13:HX=2:HY=1:1=0:GOSUB *CSL 

6370 IF I=0 THEN IF Z=-1 THEN *SV ELSE CLS:RETURN 

6380 LOCATE 40,16:PRINT ‘SAVING CHARACTER! * 

6390 AS="A"-59  +S$+" dat’ 

6400 B(15)=xX.3:B(16)=Y.:B(17)=Z 

6410 * 

6420 OPEN AS FOR OUTPUT AS #1 
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6430 PRINT #1,B(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8) ,B(9),B(10),B(11),BC1 

2),B(13),B(14),B(15),B(16),B(17),B(18) ,B(19),B(20),B(21),B(22) ,B(23) ,B(24) ,B(25) 

,B(26),B(27),B(28) ,B(29) ,B(30),B(31),B(32),B(33),B(34),B(35),B(36),B(37) ,B(38),B 

(39) 

6440 CLOSE 

6450 “ 

6460 GOSUB *ERC:CLS:IF Z=-1 THEN 6510 

6470 LOCATE 40,13:PRINT “7"*-h 9 YY" WN? No* 

6480 LOCATE 40,14:PRINT ° Yes" 

6490 CX=60:CY=13:HX=2:HY=1:1=0:GOSUB *CSL 

6500 IF I=0 THEN *END. ELSE RETURN 

6510 LOCATE 40,13:PRINT “SAVE A 49UF°2D ? No“ 

6520 LOCATE 40,14:PRINT “ Yes’ 

6530 CX=60:CY=13:HX=2:HY=1:1=0:GOSUB *CSL 

6540 IF I=0 THEN *SV ELSE RETURN 

6550 ” 

6560 *LD:GOSUB *ERC 

6570 LOCATE 40,8 :PRINT ‘#*579- 9 LOAD 372!°:IF DEV=0 THEN S$=""*:GOTO 6600 

6580 LOCATE 40,10:PRINT “774% No. (0-9)? ° 

6590 CX=55:CY=10:HX=1:GOSUB *SINPUT 

6600 LOCATE 40,13:PRINT “S394N\ 44F#"20? No‘ 

6610 LOCATE 40,14:PRINT “ Yes’ 

6620 CX=60:CY=13:HX=2:HY=1:1=0:GOSUB *CSI_ 

6630 IF I=0 THEN RETURN 

6640 LOCATE 40,16:PRINT “LOADING CHARACTER! * 

6650 A$="A"-34°+S$+" .dat" 

6660 

6670 OPEN AS FOR INPUT AS #1 

6680 INPUT #1,B8(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8),B(9),B(10),B(11),BC1 

2),B(13),B(14),B(15),B(16),B(17),B(18) ,B(19),B(20) ,B(21),B(22) ,B( 23) ,B(24),B(25) 

,B(26),B(27),B(28),B(29) ,B(30),B(31),B(32),B(33),B(34),B(35) ,B(36) ,B(37),B(38),B 

(39) 

6690 CLOSE 

6700 ” 

6710 AD.X=B(15):AD. Y=B( 16) :Z=B(17) 

6720 GOSUB *ERC:CLS:IF Z<>-1 THEN 6770 

6730 * 

6740 LOCATE 40,10:PRINT “A*-3% AN 2F*L PED ALIBI. cc eee 

6750 LOCATE 40,14:PRINT “Hit CRETURN] Key!" 

6760 IF INP(1)=127 THEN I=0:RETURN ELSE 6760 

6770 IF B(24)=1 THEN POKE &HF330,&HD6:POKE &HF331,&H10 

6780 IF B(28)=1 THEN POKE &HF344,&HD4:POKE &HF345,&H8C 

6790 IF B(29)=1 THEN POKE &HF33A,&HD5:POKE &HF33B, &H4E 

6800 RETURN 

6810 “ 

6820 “ 

6830 *TEKI 

6840 LOCATE 27,19:PRINT “TLD FOY*¢F49!°3 IF N=15 THEN N=0 

6850 GOSUB *PUTTEKI 

6860 GOSUB *GTEKI 

6870 LOCATE 40,11:PRINT C%;° n”* POILI!" 

6880 IF N=O THEN LOCATE 27,19:PRINT °9,...9..2.7%... :GOSUB *BEL 

6890 IF N=16 THEN LOCATE 27,19:PRINT °77..37 J3VF*Ft9t...° sLOCATE 27,20:PRINT 
O° DN”. .FSLN KYO PARIKN F"F74!"3GOSUB *BEL 

6900 * 

6910 *TEKI1 

6920 ST=1:DX=1 

6930 LOCATE 40,13:PRINT “Attack’* 

6940 LOCATE 40,14:PRINT “Talk’ 

6950 LOCATE 40,15:PRINT ‘Run* 

6960 LOCATE 40,16:PRINT “Joy-Stick’ 

6970 I=0 

6980 CX=40:CY=13:HX=8:HY=3:GOSUB *CSL:CLS:GOSUB *ERC1 

6990 IF N=0 THEN I.=I:N=15:GOSUB *ERC:GOSUB *PUTTEKI:GOSUB *GTEKI:LOCATE 40,11:B 

EEP:PRINT “OUD A “3CH3° P*997tl i sIsl. 

7000 ON I+1 GOTO *ATTACK,*TALK, ¥RUN. , *JOY 

7010 ° 

7020 *ATTACK 

7030 IF B(12)<>B(13) THEN B(13)=B(13)+1:LINE (415+B(13)%1,16)-(416+B(13)*1,22),4 

» BF 

7040 *AT.BASI 

7050 IF K=t AND B(1)>C(0)*4 THEN LOCATE 27,19:PRINT C$3° A x9°F499.....°3B(14)=B 

(14)-5 :GOTO *NIGETA 

7060 GOSUB *BEL 

7070 IF FNHIT(B(4)*DX+B(4)*RND(1),C(3))=0 THEN LOCATE 27,19:PRINT C$;° * A*-3% 

9 399'":GOTO *AT.TEKI 

7080 DAM=FNDAM(FNR(B(3)*.4)+ST*B(7),C(5)4+C(6) ) 

7090 IF DAM<=0 THEN LOCATE 27,19:PRINT C%3° D* A*-359 9 OFbXT!1*3GOTO *AT.TEKI 

7100 C(1)=C(1)-DAM 

7110 IF C(1)<=0 THEN BEEP:LOCATE 27,19:PRINT ‘“A"-34 D* “3CH3° 9 DKXV!"3GOTO *SHI 

TOMETA 

7120 GOSUB *GTEKI 

7130 LOCATE 27,19:PRINT “A*-S9n" “3C$3°="3DAM3°/ 9" X-3°9 PIII!" 

7140 ° 

7150 *AT.TEKI 

7160 FOR I=0 TO 100 :NEXT 

7170 GOSUB *BEL 

7180 IF FNHIT(C(3)+C(3)*RND(1),B(4)*DX)=0 THEN LOCATE 27,21:PRINT “A*-39 D* “;C$ 

3° 39 379!'"3GOTO *TEKI1 
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7190 DAM=FNDAM(FNR(C(2)%.4)+C(4),DX*(BC9)+B(11))) 

7200 IF DAM<=0 THEN LOCATE 27,21:PRINT “A"-39 D” "3C$3° 9 OFKAF!"sGOTO *TEKI1 
7210 B(2)=B(2)-DAM 

7220 IF B(2)<=0 THEN LOCATE 27,21:PRINT C$3" 0* A*-39 9 SbXF!"°sGOTO *SHINDA 
7230 GOSUB *GLIFE , 

7240 LOCATE 27,21:PRINT C$3° D* A*-39=°3DAM3°/ 9° X-35°9 PIII!" 

7250 GOTO *TEKI1 

7260 * 

7270 *SHITOMETA 

7280 GOSUB *ERG:GOSUB *ERC 

7290 IF K=0 THEN B(14)=B(14)*.5 

7300 B(5)=B(5)+(.8*B(14))/B(0) 

7310 IF B(5)<0 THEN B(5)=0 

7320 GOSUB *GEXP 

7330 IF B(5)<=1000 THEN 7440 

7340 B14=B(14):1IF B(14)>110 THEN B14=110 

7350 B(O)=B(0)+1:B(5)=0:A=B(1)-B(2) 

7360 B(1)=B(1)+¢(FNN(B14)-FNR(20))/10:B(2)=B(1)-A 

7370 B(3)=B(3)+(FNN(B14)-FNR( 20) )/10 

7380 B(4)=B(4)+(FNN(B14)-FNR(20))/10 

7390 GOSUB *ERC1 

7400 BEEP:LOCATE 40,9 :PRINT “A*-359 A Yt"/ LATHD TYWI!" 

7410 LOCATE 40,10:PRINT “A*-39 AN LA*H'3BCO)3°= TYISI!" 

7420 LOCATE 40,13:PRINT “Hit CRETURN] Key! ° 

7430 IF INP(1)=127 THEN GOSUB *GINIT :GOSUB *ERC:ELSE 7430 

7440 CLS:IF C(7)=0 OR RND(1)>.8 THEN 7490 

7450 LOCATE 40,9 :PRINT C(7)3° Gold S¥79!!11° 

7460 BC 20)= B(20)+C(7): IF B(20)>15000 THEN LOCATE 40,10:PRINT °9"%" 15000 Gold 1% 
“39 N €F74!°3BC20)=15000 

7470 LOCATE 40,13:PRINT “Hit CRETURN] Key!" 

7480 IF INP(1)=127 THEN GOSUB *ERC ELSE 7480 

7490 IF K<>2 THEN 7550 

7500 NO=20:HOSHI=HOSHI+1:IF HOSHI=41 AND B(24)=0 THEN 7510 ELSE 7590 

7510 B(8)=2:B(9)=SUIT(2)3:B¢(10)=2:B(11 )=HELM( 2) 3B(24)=1 

7520 GOSUB *BEL:GOSUB *BEL:GOSUB *BEL1:GOSUB *BEL:GOSUB *PUTBASI:GOSUB *BEL :GOSU 
B *BEL1:GOSUB *BEL 

7530 GOTO 7590 

7540 ” 

7550 IF K=3 THEN B(25)=1 

7560 IF K=4 THEN B(26)=1 

7570 IF K=5 THEN B(27)=1 

7580 IF K=6 THEN *ENDING 

7590 NO=NO OR &H40:GOSUB *NOS 

7600 IF K=2 THEN BEEP 1:BEEP 0:ST.X=4:ENO.X=4:ST.Y=4:END.Y=4:GOSUB *PUTMAP 
7610 GOTO *®KEYIN 

7620 “ 

7630 *NIGETA 

7640 GOSUB *ERG:GOSUB *ERC 

7650 LOCATE 40,11:PRINT “Hit CRETURN] Key!”* 

7660 IF INP(1)<>127 THEN 7660 

7670 GOSUB *ERC:CLS:NO=NO OR &H40:GOSUB *NOS:GOTO *KEYIN 

7680 ° 

7690 *TALK 

7700 IF K=1 AND B(1)>C(0)*3 THEN LOCATE 27,19:PRINT C$3° AN 9" F499.....° 3BC14)=B 
(14)+FNR(1):GOTO *NIGETA 

7710 IF K<>O THEN LOCATE 27,19:PRINT C$3° A ATSF DDN PIFFSN rai” :GOTO AT. TEKI 
7720 IF C(0)<>C(1) THEN B(14)=B(14)-10:LOCATE 27,19:PRINT C%3°" A x7" F499.....°3G 
OTO *NIGETA 

7730 ON FNR(4)+1 GOSUB 774g, 7750,7760,7770,7780:GOTO *NIGETA 


7740 LOCATE 27,19:PRINT 1X7 DALTAF* rca ie sRETURN 
7750 LOCATE 27,19:PRINT “© Ys 33D 9 94E9S wee 2 :RETURN 
7760 LOCATE 27,19:PRINT “" 397 3 4° tRETURN 


7770 LOCATE 27,19:PRINT "" #1943F PHLIKON" 143! 4° sRETURN 
7780 LOCATE 27,19:PRINT "© Y39 K7*JN #tFD" £743! 4° sRETURN 
7790: * 

7800 *RUN. 

7810 IF FNHIT(B(4),C(3))=0 THEN 7890 

7820 ON FNR(3)+1 GOSUB *UP,*LF,*DN, RT 

7830 IF F=1 THEN X.=AD.X:Y.=AD.Y:GOSUB *NOC:GOTO 7890 

7840 LOCATE 27,19:PRINT “Y#"€ 977 T° FLAN DE" UVR.” 

7850 B(14)=B(14)-(CFNR(4)+1) 

7860 GOSUB *ERG:GOSUB *ERC 

7870 LOCATE 40,11:PRINT “Hit CRETURN] Key!* 

7880 IF INP(1)=127 THEN CLS:GOSUB *ERC:GOSUB *KEYIN ELSE 7880 
7890 IF K=0 THEN 7820 

7900 BEEP:LOCATE 27,19:PRINT “S299! YAIYF!I!!*:GOTO *AT.TEKI 
7910: * 

7920 *JOY 

7930 LOCATE 63,12:PRINT “Return’* 

7940 LOCATE 63,13:PRINT “CTRL+CK]° 

7950 LOCATE 63,14:PRINT “HELP* 

7960 LOCATE 63,15:PRINT “DEFINT A-Z* 

7970 LOCATE 63,16:PRINT “CMD TEXT OFF“ 

7980 LOCATE 63,17:PRINT “COMPILE* 

7990 I=0 

8000 CX=63:CY=12:HX=11:HY=B(19):1IF HY>S THEN HY=5 

8010 GOSUB *CSL:IF I1=0 THEN GOSUB *ERC1:GOTO *TEKI1 

8020 IF 1*10>B(13) THEN LOCATE 40,14:PRINT “#990” 9UTL!!!1°:BEEP:GOTO 8000 
8030 B(13)=B(13)-1*10:GOSUB *GSTI 
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8046 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 


ON I GOTO 8090,8050,8060,8070,8080 

B(2)=B(1):GOSUB *ERC1:GOSUB *GLIFE:GOTO *ATTACK 

ST=2:GOSUB *ERC1:GOTO *ATTACK 

DX=2:GOSUB *ERC1:GOTO *ATTACK 

ST=2:DX=2:GOSUB *ERC1:GOTO *ATTACK 

B(2)=B(2)*.05:GOSUB *GLIFE:IF B(2)=0 THEN *SHINDA 

IF Z=1 THEN Z=0 

AD.X=8:X.=8:AD.Y=22:Y.=22:ST.X=-1:GOSUB *BEL:GOSUB *PUTMAP:GOSUB *BEL 
GOSUB *ERG:GOSUB *ERC:GOTO *KEYIN 


*SHINDA 

BEEP:LINE (301,1)-(638,100),0,BF 

FOR I=0 TO 17:LOCATE 39,1:COLOR O:PRINT SPC(41):NEXT 

IF DEV=1 THEN BLOAD ‘t-1.dat*,&HDEOO:POKE &HF260,0:POKE &HF261,&HDE ELSE PO 


KE &HF260,&H72:POKE &HF261,&HC9 


8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 


U=USR( &HC000+54*80+55 ) : BEEP 

LOCATE 50,13:PRINT °“A*-39! Fe Sug" 1" 
LOCATE 50,14:PRINT “h-#evA DTSCH Itt 
LOCATE 50,16:PRINT “ Hit CRET] Key! ° 


IF INP(1)=127 THEN *END. ELSE 8220 
*BASTINIT 
DATA 1,10,10,10,10,0,0,1,0,2,0,1,0,0,100,8,22,0,0,0,0,0,0,0,0,0,0,0,0 


RESTORE 8260:FOR I=0 TO 28:READ BC(I):NEXT 
AD. X=8:AD. Y=22:Z=0 
RETURN 


*TITLE:GOSUB *ERC:CLS 

LOCATE 55,10:PRINT “New Game’ 

LOCATE 55,11:PRINT “Load Game’ 
1=0:CX=55:CY=10:HX=8:HY=1:GOSUB *CSL 

IF I=0 THEN GOSUB *BASITINIT ELSE GOSUB *LD 
IF I[=0 THEN *TITLE 

GOSUB *ERC : RETURN 


*xENDING 

FOR U=0 TO 1:GOSUB *ERC 

Bi4=B(14):IF B(14)>110 THEN B1i4=110 

B(0)=B(0)+1:B(5)=0 
B(1)=B(1)+CFNN(B14)-FNR( 20) )/10:B(2)=B(1) 
B(3)=B(3)+(FNN(B14)-FNR( 20) )/10 

B(4)=B(4)+(FNN(B14)-FNR(20))/10 
B(12)=B(12)+FNR(5)+B(14)%.13:B013)=B(12):B(19)=B(0)-2 

BEEP:LOCATE 40,9 :PRINT “A*-39 AN Yt*) LA“ AL TYIWI!" 

LOCATE 40,10:PRINT “A*-39 A LA*H' 3BCO)3°2 TYISI!" 

LOCATE 40,13:PRINT “Hit CRETURN] Key!* 

IF INP(1)=127 THEN GOSUB *GINIT ELSE 8500 

NEXT 

CONSOLE ,,,1:BEEP 1:FOR I=0 TO SO:WIDTH 80:SCREEN FNR(1):NEXT:BEEP O 
GOSUB 4380:SCREEN 0,0:LINE (416,1)-(638,47),0,BF 

IF DEV=1 THEN BLOAD ‘“t O.dat*,&HDEOO:POKE &HF260,0:POKE &HF261,&HDE ELSE PO 


KE &HF260,&H90:POKE &HF261,&HC?7 


8550 
8560 
8570 
8580 
8590 
8600 


FOR t=73 TO 45 STEP =1 

LINE ((1+5)*8,12)-((1+6)%8-1,45),0,BF 

U=USR( &HCO00+12*80+1 ) 

FOR J=0 TO 10:BEEP 1:BEEP O:NEXT 

NEXT 

IF DEV=1 THEN BLOAD “t-2.dat*,&HDEOO:POKE &HF260,0:POKE &HF261,&HDE ELSE PO 


KE &HF260,&H5S4:POKE &HF261,&HCB 


8610 U=USR(&HCO00+20*80+52) 

8620 BEEP:LINE (0,0)-(288,144),0,BF:GOSUB *BEL 

8630 COLOR 2:LOCATE 6,2 :PRINT “ CONGRATURATIONS !!° 

8640 COLOR 5:LOCATE 6,4 :PRINT * NOW YOU SAVE LOLIKO" 

8650 COLOR 5:LOCATE 6,6 :PRINT ° AND * 

8660 COLOR 5:LOCATE 6,8 :PRINT “THE ADVENTURE IS OVER" 

8670 COLOR 5S:LOCATE 6,10:PRINT * THANK YOU" 

8680 COLOR 5:LOCATE 6,12:PRINT “* FROM" 

8690 COLOR S:LOCATE 9,14:PRINT K% 

8700 COLOR 7:LOCATE 60,17:PRINT “Hit CRETURNI Key!" 

8710 IF INP(1)=127 THEN CONSOLE ,,,0:CLS ELSE 8710 

8720 Z=-1:GOSUB *SV:GOTO END. 

8730 * 

8740 *END. 

8750 CLS 2:WIDTH 80:U=USR7(A):END 

8760 * 

8770 *ERROR. 

8780 IF ERR=61 AND ERL=6410 THEN BEEP:LOCATE 27,19:PRINT “S¢K7°OF7K BLFLI2Z™ sRESU 
ME *SV 

8790 IF ERR=53 AND ERL=6660 THEN BEEP:LOCATE 27,19:PRINT “774 No. 3S$3° AN PURRY 


!";RESUME *LD 


8800 
8810 
8820 
8830 
8840 
0) 

8850 
8860 


220 


U=USR?7(0):CLS:ON ERROR GOTO 0 

*TP:PRINT “DATA 9% O-k*522 CRETI° 

IF INP(1)<>12? THEN 8830 

AS= "mon * +CHR$(13)+"r* +CHR$(13)+CHR$(2)+°1010°+CHR$(13)+*run* +CHR$(13)+CHRS( 


I=VARPTR(AS)+1:POKE &HFOO3,PEEK(I1):POKE &HFOO4,PEEK(I+1):POKE &HE6CE,1 
END 
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9500 
9508 
9510 
9518 
9520 
9528 
9530 
9538 
9540 
9548 
9550 
9558 
9560 
9568 
9570 
9578 
9580 
9588 
9590 
9598 
9S5A0 
9S5AB 
95B0 
95B8 
95CO 
95C8 
9500 
9508 
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D9A8 
D9B0 
D9B8 
D9CO 
D9C8 
D9D0 
D9D8 
D9EO 
D9E8 
D9FO 
D9F8 
DAOO 
DAO8 
DA10 
DA18 
DA20 
DA28 
DA30 
DA38 
DA40 
DA48 
DASO 
DAS8 
DA60 
DA6é8 
DA70 
DA78 
DA80 
DA88 
DA90 
DA98 
DAAO 
DAA8 
DABO 
DABS 
DACO 
DAC8 
DADO 
DADS 
DAEO 
DAES 
DAFO 
DAF8 
DBOO 
DBO8 
D0B10 
DB1i8 
DB20 
DB28 
DB30 
DB38 
DB40 
0B48 
DB50 
DB58 
DB6é0 
DBé68 
DB70 
DB78 
DB80 
DB88 
DB90 
DB98 
DBAO 
DBA8 
OBBO 
DOBBS 
DBCO 


00 
00 
FF 
00 
00 


FF 
00 
Ag 


AA 
FF 
00 
0A 
FF 
00 
02 
FF 
80 
00 
FF 
EO 
co 
FF 
FF 
FA 
F8 
FC 
FA 
FF 
FC 
EA 
AF 
00 
FF 
AA 
00 
FF 
70 
00 
FF 
70 
00 
FF 
55 
00 
FF 
40 
00 
FF 
40 
00 
FF 
00 
77 
00 
00 
04 
00 
FF 
00 
00 
FF 
00 
00 
FF 
00 
00 
FF 
00 
00 
FF 
00 
00 
FF 
00 
00 
FF 
00 
00 
FF 
00 
AA 
FF 
00 
AA 
FF 
00 
FA 
FF 
00 
FF 
FF 
00 
FF 
FF 
00 
EB 
FF 
00 
EA 
FF 
00 
AA 
FF 
00 
00 
AA 
FF 
00 
BA 


00 
OF 
FF 
00 
00 
FF 
00 
00 
FF 
01 
03 
FF 
3F 
FF 
1F 
1F 
3F 
1F 
OF 


FF 
00 
00 
FF 
00 
00 
FF 
00 
80 
FF 
80 
EO 
FF 
FC 
FF 


54 
FF 
00 
50 
FF 
00 
40 
FF 
01 
01 
FF 
07 
7F 
FF 
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AIPC-880'1mkI, PC-8801mkIISR°N—L DBOAEB’ JOT SL! AR RIBAS) 


DBC8 
DBDO 
DBD8 
DBEO 
DBE8 
DBFO 
DBF8 
DCcOO 
0CO08 
DC1i0 
DC1i8 
DC20 
0C28 
0C30 
DC38 
DC40 
DC48 
DC50 
DC58 
DCé60 
DCé68 
DC 70 
0C78 
DC80 
DC88 
DC90 
DC98 
DCAO 
DCA8 
DCBO 
DCB8 
DCCO 
DCC8 
DCDO 
DCD8 
DCEO 
DCE8 
DCFO 
DCF8 
DD00 
DDO8 
DD10 
0018 
DD20 
DD28 
DD30 
DD38 
DD40 
DD48 
DOD50 
DD58 
DOé60 
0D68 
DD70 
DD78 
DD80 
DD88 
DD90 
DD98 
DDAO 
DDA8 
DOBO 
DOB8 
DDCO 
DDC8 
DDOO 
DOD8 
DDEO 
DDE8 
DOF O 
DDF8 
DEOO 
DEO8 
DE10 
DE18 
DE20 
DE28 
DE 30 
DE38 
DE40 
DE48 
DESO 
DES8 
DE 60 
DE68 
DE70 
DE78 
DE80 
DE88 
DE90 
DE98 
DEAO 
DEA8 
DEBO 
DEBS 
DECO 
DEC8 
DEDO 
DED8 
DEEO 
DEES 
DEFO 
DEF8 
DFOO 
DFO8 
DF 10 
DF18 
DF 20 
DF 28 


228 


FE 
FF 
00 
BA 
FF 
00 
BA 
FF 
00 
AA 
FF 
10 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
EO 
00 
00 
7F 
00 
00 
FF 
00 
54 
co 
00 
54 
FF 
00 
00 
FF 
00 
00 
FF 
00 
00 
00 
00 
55 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
98 
95 
96 
BO 
96 
72 
9A 
95 
00 
00 
00 
31 
00 
00 
30 
3D 
00 
B9 
00 
00 
5B 
00 
00 
pc 
00 
00 
00 
28 
5B 
00 
00 
37 
00 
00 
5B 
00 
00 
2c 


LOGIN 1985 No.9 


00 
FF 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
04 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
FF 
00 
55 
AO 
FF 
00 
00 
Fi 
00 
00 
QF 
00 
2A 
BF 
00 
00 
BF 


FF 
00 
BF 
FF 
00 
AA 
FF 
00 
AA 
FF 
00 
00 
AA 
FF 
00 
OA 


AA 
FF 
00 


SF 
FF 
00 
70 
FF 
00 
55 


00 
55 
CF 
00 
55 
CF 
00 
55 
FF 
00 
55 
AA 
FF 
00 
Ag 
FF 
00 
BO 
FF 
00 
AO 
FF 
00 
AO 
FF 
00 
AO 
FF 
00 


A8 
Fi 
39 
9A 
AF 
EC 
8A 
D8 
35 
93 
FO 
62 
55 
09 
B8 
CD 
BC 
D8 
El 
29 
EO 
FS 
14 
F8 
0D 
2C 
10 
25 
44 
28 
3D 
EA 
40 
5D 
B1 
CD 
F6 
af 
CC 
C3 
24 
C8 
DC 
OF 
AB 
99 
E? 
AE 
FO 
EA 
42 
08 
02 
8A 
50 
1A 
63 
6E 
ic 
24 
81 
89 
91 
99 
Al 
A9 


34 


69 


=} | 


33 


DF 30 
DF 38 
DF 40 
DF 48 
DF50 
DF58 
DF 60 
DF 68 
DF 70 
DF 78 
DF 80 
OF 88 
DF 90 
DF 98 
DF AO 
DFA8 
DF BO 
DFB8 
DFCO 
DFC8 
DF DO 
DFD8 
DFEO 
DFE8 
DFFO 
DFFS8 
E000 
E008 
E010 
£018 
E020 
E028 
E030 
E038 
E040 
E048 
E050 
E058 
E060 
E068 
E070 
E078 
E080 
E088 
E090 
E098 
EOAO 
EOA8 
EOBO 
EOBS8 
EOCO 
EOC8 
EODO 
EOD8 
EOEO 
EOE8 
EOFO 
EOFS 
E100 
£108 
£110 
E118 
E120 
E128 
E130 
E138 
E140 
E148 
E150 
£158 
E160 
E168 
E170 
E178 
E180 
£188 
E190 
E198 
E1A0 
E1A8 
E1B0 
E1B8 
E1CO 
—1C8 
£100 
E108 
E1E0 
F1iE8 
E1F0O 
E1F8 
E200 
E208 
E210 
E218 
E220 
E228 
E230 
E238 
E240 
E248 
E250 
E258 
E260 
E268 
E270 
E278 
E280 
E288 
E290 


00 
00 
42 
00 
30 
3D 
00 
00 
69 
95 
00 
00 
p08 
D0 
DB 
C2 
B8 
DE 
BO 
00 
3D 
30 
00 
00 
00 
00 
05 
00 
00 
00 
00 
FE 
00 
80 
FF 
80 
03 
80 
08 
00 
36 
40 
7F 
01 
55 
00 
AB 
00 
F8 
C2 
AO 
00 
00 
15 
CO 
00 
00 
Fe 
00 
00 
00 
FF 
01 
08 
03 
37 
02 
3F 
55 
55 
3F 
FO 
15 
00 
AA 
00 
00 
00 
81 
00 
FF 
01 
00 
03 
FF 
OF 
00 
C3 
01 
01 
FO 
Ai 
00 
CO 
CO 
FF 
?F 
55 
00 
A3 
00 
2A 
00 
00 
00 
OF 
01 
?F 
F8 


00 
00 
2E 
00 
3D 
3D 
00 
00 
tz 
95 
00 
00 
c4 
D4 
00 
CB 
D? 


00 
00 
54 
00 
3D 
3D 
00 
00 
6F 
95 
00 
00 
D8 
B9 
D3 
DB 
B2 


00 
00 
00 
00 
3D 
3D 
00 
00 
69 
95 
00 
00 
co 
00 
00 
00 
00 
00 


00 
00 
00 
00 
3D 
30 
00 
00 
00 
OD 
00 
00 
BS 
00 
2F 
00 
2F 


00 
00 
41 
00 
3D 
30 
00 
00 
ci 
09 
00 
00 
D4 
00 
00 
00 
00 
00 
00 
p9 
30 
30 
00 
00 
00 
6F 
00 
00 
FF 
00 
00 
00 
01 

00 
BF 
00 
EO 
Fe 
00 
9E 
40 
AA 
co 
55 
40 
FF 
7F 
00 
00 
A3 
00 
00 
00 
D4 
00 
70 
FD 
38 
00 
00 
01 
00 
08 
00 
3E 
02 
6B 
03 
57 
00 
FC 
FS 
50 
07 
EO 
00 
00 
06 
00 
FF 
00 
00 
80 
24 
OF 
80 
00 
03 
OF 
00 
At 
0B 
3€ 
co 
2A 
00 
55 
00 
FF 
13 
2A 
00 
FF 
00 
AA 
01 
00 
02 
1F 


OF 
ig 
OC 


EC 


7B 


3E 


E298 
E2A0 
E2A8 
E2B0 
E2B8 
E2CO 
E2C8 
E2D0 
E2D8 
E2E0 
E2E8 
F2F0 
E2F8 
E300 
E308 
E310 
£318 
E320 
E328 
E330 
E338 
E340 
E348 
E350 
E358 
E360 
E368 
E370 
E378 
E380 
E388 
E390 
E398 
E3A0 
E3A8 
E3B0 
E3B8 
E3CO 
E3C8 
E3D0 
E308 
E3E0 
E3E8 
E3F0 
E3F8 
E400 
E408 
E410 
E418 
E420 
E428 
E430 
E438 
E440 
E448 
E450 
E458 
E460 
E468 
E470 
E478 
E480 
E488 
E490 
F498 
E4A0 
E4A8 
E4B0 
E4B8 
E4CO 
EA4C8 
E400 
E408 
E4E0 
E4E8 
E4FO 
E4F8 
E500 
E508 
E510 
E518 
E520 
E528 
E530 
E538 
E540 
E548 
E550 
E558 
E560 
E568 
E570 
E578 
E580 
E588 
E590 
E598 
ESAQ 
ESA8 
ESB0 
E5B8 
ESCO 
ES5C8 
E5D0 
E508 
ESEO 
ESE8 
ESFO 
ESF8 


05 
FF 
OF 
01 
15 
Fa 
00 
Fe 
00 
2A 
00 
7C 
FF 
00 
00 
00 
00 
00 
54 
00 
FE 
AA 
55 
FE 
AO 
AB 
FO 
00 
00 
1F 
00 
AA 
00 
FF 
02 
FF 
07 
02 
OA 
FF 
00 
14 
14 
14 
14 
7E 
00 
54 
00 
00 
00 
00 
FC 
00 
FC 
55 
AA 
FF 
00 
54 
EO 
00 
50 
00 
00 
00 
FS 
FF 
1F 
FF 
10 
FD 
15 
00 
1F 
00 
1F 
FC 
00 
FC 
FF 
FE 
99 
2A 
3C 
3E 
AC 
00 
Fa 
3F 
FC 
78 
00 
FF 
00 
E? 
80 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


14 OD 
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GRAND HEXAGON JO9SLUZR 


BiD7O7FLAIS, HBAMMALC LTH AT SIZAS SEBEL. SPHERE CAEGA. COPYRIGHT © 1985 by Takahiro Maebashi 
TL/1 COPYRIGHT © by Hiroshi Ohnishi, Junichi Hada *2MN7OAFAIMISEM-TR TL/1I DDL IPL LIL—FLASENTU STF, 






GRAND HEXAGONOD 7U75FAlLTONTFUAS CF, &HICCF, &H11CF [RETURN], |) 26/3 SAVEM 
ATRYN TWA, HEY bhCOFARITTC. ‘GH3* &H1200, &H6E7E, &H1200/RETURN], ') Zh 7 







Yb Ch LACES, i$ SAVE “MAIN” [RETURN] £095 9 IS -7HS, 
=o VAPLEYV APSR AT, CH 77 Se UA} KATZ Ab 3M LOADER*® a— kt, RUN[RETU. 






1(4SAVE“MAKE” [RETURN], JAR2ZISSAVEM*DA RNJEL TH HAZE, MHhOUVTNL—-Fr7I7-r iN 
TA.000, &H2100, &H31FF, &H2100[RETURN] COK72, *#itAiAA CK NSD, RHR, Xr F7I—-F-—ID 
SDNARIZSINTFAS IAC. BADE XIII A-—Fw FRPANASHO TC 4DC, HEL Fo RX FT 
fF SM72, VARLe®O—KRRUN[RETURN, ZL ¥-F-H#, TACO KLTRS, FerA NAR 
Ci — eH FAMMNICY AR ZDTUAFIAR ARAL CES, 























AAA CCMA, Rid. HOG RIC ES TAHL EB, FART Cleo Ald, MHARED LR. FS 
ThaTbbAlL, BRIDE IVI F—-—VER-T ATR2. FrANMBLUPRAAL TORE, 
LOS FF CHIESNITF CHS, CI ULBWE. TeST ILS CC RES Sr 






KlIA4+~TA7T ILI VA3is SAVE ‘LOADER’ 77 CHEM, VARIE2 CIA, YARS= 
[RETURN], |) Ab 4/4 SAVEM‘GH1’ &H2000, &H6AI16, TCLAR, F-SHICIREL BSRODF—-TPR ENT 
&H2000|RETURN], |) Ab 5 lt SAVEM ‘GH2? &H11 56 cet BGS, 


QUARK] FYIIS—AVAKRSIY ar (BASIC) 


10000 “° Grand-Hexagon [CC Character Maker J Version 1.00 

10100 “ 

10200 CLEARSO,&H20FF :WIDTH40,25:CONSOLE 0,25,0,0 

10300 PRINT'Ss# ¥"-9 9 339572. sPRINT'S"*avt"* D* F*#99 TIN Key 9 TE779" 47," 
10400 AS=INPUT$(1):LOADM'DATA.0O00":CONSOLE 18,5,0,0:SCREEN 7,0 

10500 FOR I=0 TO 7:COLOR=(1,1)s:NEXT:COLOR=(4,7) 

10600 FOR I=0 TO 2:READ NM$(I),IQ(I),NT(I),STCI),PWCI) $NEXT 

10700 FOR I=0 TO 2 

10800 FOR K=1TO LEN(NM$(1)):POKE&H30FF+K+I%11,ASC(MID$(NM$(I),K)) NEXT 
10900 POKE&H3122+1%*11,1Q¢ 1) :POKE&H3123+1%11,NTC(I) 

11000 POKE&H3128+1*11,ST( I) :POKE&H3129+1%*11,PWC(I) 

11100 NEXT: I=0 

11200 COLOR S:LOCATE 7,0:PRINT'G RAND HEXAGON 

11300 COLOR 4:LOCATE 14,2:PRINT"#+*379-- 4784" 

11400 LOCATE 7,3:PRINT* —————-—"+—-+——__'' 

11500 LOCATE 7,4:PRINT* IName IIQINTIStr IPul* 

11600 LOCATE 7,5:PRINT * H———————_+—__+—__+_+_5 " :G0SUB14600 

11700 LOCATE 7,9:PRINT* ————————+—__+—_+—____ 

11800 COLOR 6:LOCATE 0,11:PRINT‘IQ:---#t79 7592 NT*°**B27 2A 99 7992 
11900 COLOR 6:LOCATE 0,12:PRINT’Str:-:94U38979 P99R Pur s+ *NADLUSI9 FII2 
12000 COLOR 2:LOCATE 5,14:PRINT**29FN\ 1920474 1" 9OT4F*SOCTIFCR 

12100 SCREEN 0,0:CONSOLE 18,5,0,1:SCREEN 7,7 

12200 FOR I=0 TO 2 

12300 LOCATE 0,17 

12400 PRINT'7°L¢4P- No. “31+13:LOCATE 0,18 

12500 LINEINPUT‘TVZIA 2? (10€S" VF") “ZAG 

12600 IF LEN(CA$)>10 THEN BEEP:GOTO 12500 

12700 IF A%$<>** THEN NM$(I)=A%$:GOSUB14600ELSE 13000 

12800 FOR K=1TO 11:POKE&H30FF+K+I*11,0:NEXT 

12900 FOR K=1TO LEN(AS) sPOKE&H30FF+K+1%11,ASC(MID$(A$,K) ) :NEXT 

13000 LINEINPUT’I.Q.=" 3;A$:A=VAL(A$):IF A>20 THEN BEEP:GOTO 13000 

13100 IF A$<>** THEN IQ(1)=A:POKE&H3122+1*11,A:GOSUB14600 

13200 LINEINPUT‘'N.T.=" s;A%:A=VAL (A$): IF A>20 THEN BEEP:GOTO 13200 

13300 IF A%<>** THEN NTCI)=A:POKE&H3123+1%*11,A:GOSUB14600 

13400 LINEINPUT “Strength=" 3;A%$:A=VAL(A$):IF A>20 THEN BEEP:GOTO 13400 
13500 IF A$<>** THEN ST(I)=At:POKE&H3128+1*11,A:GOSUB14600 

13600 LINEINPUT “Power=* ;A$:A=VAL(A$):IF A>20 THEN BEEP:GOTO 13600 
13700 IF A$<>"** THEN PWC I)=A:POKE&H3129+1%11,A:GOSUB14600 

13800 IF IQ(I)+NTCI)+STCI)+PWC(1I)<51 THEN 14000 

13900 BEEP:PRINT‘'I"974D" 4442#"°I2"°:GOTO 13000 

14000 PRINT*ILE*44F°2N CY/N) 2° :AS=INPUTS$(1) 

14100 IF A$="N* THEN 12500 ELSE IF AS<>°Y" THEN 14000 

14200 PRINT:PRINT:PRINT:PRINT:PRINT: NEXT 

14300 PRINT"#*-9 9 save 322." :LINEINPUT "774° 2-h: “3 A$ 

14400 SAVEM A$, &H2100, &H31FF ,&H2100 

14500 END 

14600 S=CSRLIN:LOCATE 30,1 7:PRINT*/I¥=* ;50-IQ¢1)-NTCI)-STCI)-PWCI1)3 
14700 FOR J=0 TO 2 
14800 LOCATE 7,6+J 
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BEM-7 JSVE-AFGI"FOTSLUIAR BRINN —-Y) 


14900 PRINTUSING* |& & | HH 1 | LL SNMSC I) 3 1QC 5) 3NTC J) 3STCJ) sPWC I) 
15000 NEXT:LOCATE 0,S:RETURN 

15100 DATA T.MAEBASHI,10,10,15,15 

15200 DATA T.NAGAO »10,10,15,15 

15300 DATA YASUSHI.S , 0,15,15,20 


@UZK2 ¥v5I9—AVANS IVa (VY) 











2100 2C 00 99 03 2D 00 99 05 B4 2418 00 00 00 00 00 00 00 00 3C 2730 00 00 00 00 00 00 00 00 57 
2108 2€ 00 99 07 OA 7F 49 02 CB 2420 00 00 00 00 00 00 00 00 44 2738 00 00 00 00 00 00 00 00 SF 
2110 OA 7F 58 02 OA 7F 59 02 FB 2428 00 00 00 00 00 00 00 00 AC 2740 00 00 00 00 00 00 00 00 67 
2118 OA 7F E9 02 OA 7F D9 O2 11 2430. 00 00 00 00 00 00 00 00 54 2748 00 00 00 00 00 00 00 00 6éF 
2120 OA 7F 08 02 OA 7F BD 02 EB 2438 00 00 00 00 00 00 00 00 SC 2750 00 00 00 00 00 00 00 55 CC 
2128 OA 7F BB O2 OA 7F A? 02 BE 2440 00 00 00 00 00 00 00 00 644 2758 00 00 00 00 00 00 00 00 7F 
2130 OA 7F 79 02 OA 7F 7B 02 5B 2448 00 04 00 00 00 00 00 00 70 2760 00 00 00 00 00 00 00 00 87 
2138 OA 7F 9B 02 OA 7F 90 02 A? 2450 00 00 00 00 00 00 00 00 74 2768 00 00 00 54 00 00 00 00 £3 
2140 OA 7F AD 02 OA 7F B? 02 DB 2458 05 06 36 00 00 00 00 00 BD 2770 00 00 00 4D 4E 4F 00 00 81 
2148 OA 7F 97 02 OA 7F 95 02 AB 2460 00 00 00 00 00 00 34 39 Fi 2778 00 00 00 00 00 00 00 00 9F 
2150 OA 7F 76 02 OA 7F AG 02 A3 2468 2E 35 3? 2D 32 00 00 00 85 2780 00 00 00 00 00 00 00 00 A? 
2158 OA 7F C6 02 OA 7F C9 02 IE 2470 00 00 00 00 00 3A 15 2F 12 2788 00 00 00 00 00 00 56 00 05 
2160 OA 7F CC 02 OA 7F CB 02 2E 2478 20 0D 21 OE 2C 3B 00 00 SF 2790 00 00 00 00 00 00 00 00 B7 
2168 OA 7F 9C 02 OA 7F BC 02 F? 2480 00 00 00 00 O00 2B 33 38 3A 2798 00 02 00 00 00 00 00 00 Ci 
2170 OA 7F BA 02 OA 7F CA 02 28 2488 00 41 00 30 22 31 00 00 70 27A0 00 00 00 00 00 00 00 00 C7 
2178 OA 7F C8 02 OA 7F 78 02 EF 2490 OO 00 00 00 00 14 29 13 04 27A8 00 00 00 00 00 00 51 00 20 
2180 OA 7F 7A 02 OA 7F 8C 02 BD 2498 3E€ 42 3F OF 1B 10 00 00 B85 27B0 00 00 00 00 00 00 57 00 2E 
2188 OA 7F AC 02 OA 7F DA 02 45 24A0 O00 00 O00 OO OO 2A 16 oc 10 27B8 00 00 00 OO 00 00 00 00 DF 
2190 OA 7F BB O02 OA 7F AB 02 20 24A8 O00 40 00 26 23 11 00 00 66 27CO OO 00 58 00 00 00 00 00 3F 
2198 OA 7F BD 02 OA 7F C7 02 53 24B0 00 00 00 00 00 30 3C 12 SF 27C8 00 00 00 00 00 00 OO 00 EF 
21A0 OA 7F 96 02 OA 7F AS 02 12 24B8 OB OA 1D 25 1C 27 00 00 76 27D0 00 00 00 00 00 OO O00 00 F7 
21A8 OA 7F 85 02 OA 7F 7C 02 €E0 24CO OO OO OO OO OD 00 17 28 23 27D8 00 00 00 OO 00 00 00 00 FF 
2180 OA 7F 6B 02 OA 7F 68 02 BA 24C8 iF 18 1E 1A 19 00 00 00 74 27E0 00 00 00 00 00 00 00 00 07 
21B8 OA 7F 77 02 OA 7F 6B 02 Fi 2400 oo OO OO OO OD 00 00 00 F4 27E8 OO 4B 00 00 4C 00 00 00 Aé6 
21CO OA 7F 8D 02 OA 7F 6C 02 FO 2408 09 08 24 00 O00 OD 00 00 +31 27FO OO 00 00 00 00 O00 00 00 17 
21C8 OA 7F 86 02 OA 7F 66 02 EB 24E0 00 00 00 00 00 00 00 00 04 27F8 00 00 00 00 00 00 00 00 1F 77 
21D0 OA 7F 69 02 OA 7F SA 02 CA 24€8 O00 07 00 00 00 00 00 00 13 2800 00 00 00 00 00 00 00 00 28 
21D8 OA 7F 6A 02 OA 7F 87 02 O00 24FO O00 00 00 00 00 00 00 00 14 2808 00 00 00 00 00 00 00 00 30 
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2350 00 00 00 00 43 00 00 00 Bé 2668 00 00 00 00 00 00 00 00 8F 2980 00 00 5E 00 00 00 00 00 O7 
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2380 00 00 00 00 00 00 00 00 D3 26C8 00 00 00 00 00 00 00 00 EE 29E0 OO 00 00 SC 00 00 SF 00 C4 
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2A48 OA OA 06 06 06 08 08 08 BO 2CEO OA 02 08 O08 08 08 08 15 55 2F70 O07 O7 O07 OB OB 12 12 12 00 
2A50 O05 05 05 09 09 09 09 05 B2 2CE8 12 02 05 05 05 050505 46 2F78 12 12 12 20 20 0A OA OA 38 
2A58 03 06 06 06 06 08 08 08 BS 2CFO GA 02.12 12 12 12-42 12 94 2F80 OB OB OB OB OB 12 12 12 1C 
2A60 05 05 09 09 09 09 05 0S C2 2CF8 12 02 05 05 05 05 05 05 56 5A 2F88 12 12 12 20 20 0A 0A OA 48 
2A68 OA 06 06 08 08 08 08 08 DOD 2000 07 07 07 07 07 07 07 12 70 2F90 OB OB OB OB OB 12 12 12 2C 
2A70 O05 09 09 09 09 09 05 OA DB 2D08 12 02 1£ OA 0A OA 08 08 95 2F98 12 12 20 20 20 20 20 20 AR 
2A78 OA 06 08 08 08 08 08 08 E2 2D10 07 07 07 07 07 07 07 12 80 2FAO OS 22 22 22 0B 12 1212 7B 
2A80 09 09 09 09 09 OA OA OA FS 2018 12 02 03 03 0A 0A 08 08 83 2FAS 12 12 20 20 20 20 20 20 BB 
2A88 06 08 08 08 08 08 08 08 FO 2020 07 07 07 07 07 07 07 12 90 2FBO O05 22 22 22 0B 12 12 12 8B 
2A90 09 09 09 OA OA OA 06 06 FF 2028 12 02 1E OA OA OA OA 08 B7 2FB8 12 20 20 20 20 20 0A OA AD 
2A98 06 08 08 08 08 08 08 08 00 2030 07 07 07 07 07 07 07 12 AO 2FCO O05 22 22 18 0B 121212 94 
2AAO0 09 09 09 OA 06 06 06 06 07 2038 12 02 1£ 1E£ 0A OA OA 08 OB 2FC8 12 20 20 20 20 20 0A 0A BD 
2AA8 O08 08 08 08 08 08 08 08 12 2040 07 07 07 07 07 07 12 12 BB 2FDO0 O05 22 22 22 0B 12 08 08 97 
2AB0 09 OA OA OA 06 06 08 O08 1D 2D48 18 02 1£ 1E 1E OA 0A OA 07 2FD8 08 20 20 20 20 0A OA OA AD 
2AB8 O08 OC OC OC OC 08 08 08 32 2050 07 07 07 07 07 07 12 12 CB 2FEO O05 22 22 OB OB 08 08 08 86 
2ACO OA OA 06 OC OC OC 08 08 38 2058 12 02 OD 1— 1£ 0A 0A 0A 00 2FE8 20 20 20 20 20 0A 0A OA ODS 
2AC8 OC OC OC OC OC OC 08 OB 4A 2060 07 07 07 07 07 07 07 12 DO 2FFO O5 22 22 0B OB 08 08 08 96 
2AD0 06 OC OC OC OC OC OC OC 54 2068 18 02 00 OD 1E 1£ 1€ 1£ 41 2FF8 20 20 20 20 20 OA OA OA ES 1B 
2AD8 OC OC OC OC OC OC 08 O08 SA 2070 07 07 07 0D OD OD 12 12 FD 3000 05 05 05 05 05 OB OB OB 6A 
2AEO OC OC OC OC OC OC OC OC 6A 2078 1202 121212121212 25 3008 OB OB 01 O01 O1 01 01 01 54 
2AE8 OC OC OC OC OC OC 08 08 6A 2080 OD OD OD OD OD OD 12 1D 2A 3010 05 05 05 OS OB OB OB OB 80 
2AFO OC OC OC OC OC OC OC OC 7A 2088 18 02 10 12 12121212 39 3018 OB OB O01 01 01 01 01 01 64 
2AF8 OC OC OC OC OC 08 08 08 76 57 2090 03 03 03 03 03 03 03 03 DS 3020 05 05 05 OB 0B OB 0B 0B 96 
2B00 07 O07 O07 O07 OF O7 O07 24 80 2098 03 22 03 03 03 03 03 03 FC 3028 O01 O01 O1 01 O01 01 01 01 60 
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2CD8 12 02 12 12 12 08 08 08 66 


@UYAKS O—-%—(BASIC) 


1000 CLEARSO, &HOFFF 
1010 LOADM*GH1",,R:LOADM*GH2",,R:LOADM"GH3° :RUN “MAIN 


OUAZAK4 FAMIIF—I(VUYB) 


2000 30 8C 80 00 7F 2088 FF FF AO 2110 00 00 00 00 00 00 00 00 31 
2008 OF EC 81 ED C1 8C 6A 16 5E 2090 FF FF FF FF FF FF FF FF Ag 2118 00 00 00 00 00 00 00 00 39 
2010 12 23 Fé Bé FD OF 39 8B E1 2098 FF FF FF FF FF FF FF FF BO 2120 00 00 00 00 00 00 00 00 41 
2018 EB BA AA 55 DS FS 77 AE CB 20A0 FF FF FF FF FF FF FF FF BB 2128 00 00 00 00 00 00 00 00 49 
2020 EA EA BE 57 05 50 OD AB E3 20A8 FF FF FF FF FF FF FF FF CO 2130 00 00 00 00 00 00 00 00 51 
2028 AA AF AA 75 57 77 57 EA CF 20B0 FF FF FF FF FF FF FF FF C8 2138 00 00 00 00 00 00 00 00 59 
2030 AB EA AB O05 55 05 OD AE 1A 20B8 FF FF FF FF FF FF FF FF DO 2140 00 00 00 00 00 00 00 00 61 
2038 EA AA FA 57 05 DD 75 AB OF 20CO FF FF FF FF FF FF FF FF 28 2148 00 00 00 00 00 00 00 00 «69 
2040 AA FA AA 55 55 75 55 AA CC 20C8 FF FF FF FF FF FF FF FF EO 2150 00 00 00 00 00 00 00 EA 5B 
2048 EE AA AA 75 70 55 OF EA BA 2000 FF FF FF FF FF FF FF 00 €9 2158 AA AA AB DS 55 55 57 EA 38 
2050 BA AA FB D7 75 55 75 FF E4 2008 00 00 00 00 00 00 00 00 F8 2160 AA AA AB DS 57 D5 57 EA C2 
2058 FF FF FF FF FF FF FF FF 70 20EO 00 00 00 00 00 00 00 00 00 2168 AB EA AB DS 57 D5 57 EA OB 
2060 FF FF FF FF FF FF FF FF 78 20E8 00 00 00 00 00 00 00 00 og 2170 AB EA AB DS 57 D5 57 EA 13 
2068 FF FF FF FF FF FF FF FF 80 20FO O00 00 00 00 00 00 00 00 10 2178 AB EA AB D5 57 D5 57 EA 1B 
2070 FF FF FF FF FF FF FF FF 88 20F8 O00 00 00 00 00 00 00 00 18 72 2180 AB EA AB D5 57 D5 57 EA 23 
2078 FE FF FF FF FF FF FF FF 90 2100 00 00 00 00 00 00 00 00 21 2188 AB EA AB DS 57 DS 57 EA 28 
2080 FF FF FF FF FF FF FF FF 98 2108 00 00 00 00 00 00 00 00 29 2190 AA AA AB D5 55 55 57 00 86 
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2198 
21A0 
21A8 
21B0 
21B8 
21C0 
21C8 
2100 
2108 
21E0 
21E8 
21F0 
21F8 
2200 
2208 
2210 
2218 
2220 
2228 
2230 
2238 
2240 
2248 
2250 
2258 
2260 
2268 
2270 
2278 
2280 
2288 
2290 
2298 
22A0 
22A8 
22B0 
22B8 
22C0 
22C8 
2200 
2208 
22E0 
22E8 
22F0 
22F8 
2300 
2308 
2310 
2318 
2320 
2328 
2330 
2338 
2340 
2348 
2350 
2358 
2360 
2368 
2370 
2378 
2380 
2388 
2390 
2398 
23A0 
23A8 
23B0 
23B8 
23C0 
23C8 
2300 
2308 
23E0 
23E8 
23F0 
23F8 
2400 
2408 
2410 
2418 
2420 
2428 
2430 
2438 
2440 
2448 
2450 
2458 
2460 
2468 
2470 
2478 
2480 
2488 
2490 
2498 
24A0 
24A8 
24B0 
24B8 
24CO 
24C8 
24D0 
2408 
24E0 
24E8 
24F0 
24F8 
2500 


232 


00 00 O00 
00 00 00 
00 00 00 
00 00 O00 
00 00 00 
00 00 00 
00 00 00 
00 OO O00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 20 
00 00 00 


LOGIN 1985 No.9 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
04 
00 
00 
00 
00 
55 
30 
=o) 
Sf 
Fs) 
po fe) 
55 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


B9 
C1 
C9 
D1 
D9 
Ei 
ED 
Fi 
F9 
01 
09 
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SC88 £6 3F CO 16 23 03 C6 FF CA poem ae ee eo: ae pees ae ee. ae Seu: ee ae fe ee ee ce enh me 
5C90 21 5F 36 04 F6 11 BF CO 2C 6008 16 00 3C 34 60 17 00 38 = 9D 6306 F6 11 D2 36 O04 FO 41 OL. DE 
ee eee ae cece ot See aa 6010 35 60 Cé Fi FB 11 DO 36 CE 6390 36 04 Fé 11 DO 36 04 17 55 
5CAO CO E4 CO 10 27 00 94 F6 11 6019 08 Fe 42 Di 86.10 Sh ee Ee 6979 OT AG 3 60 32-10 HE 6) Ce 
SCA8 3E CO 00 26 03 C6 FF 21 11 6020. 08 50 FB: 11 D2 37 G2 26 eon). 28-00 37 Te Be eo ee ee ae 
5CBO SF 36 04 E6 30 CO 00 26 AE euee 06: 66:0 C0 0b 30 27 20 "a6 GIAB) oe 36 OF te eee al ee 
5CB8 03 Cé FF 21 5F E4 CO 10 10 S020 16 36.60: £6 41.02 36 0) a S560, 20: OF Pe Tk. Bt ee eae on 
5CCO 27 00 1E 34 60 C6 10 36 O1 6020: FO 2) Oh 36 Oe red) Se 6288 70 8 0 re et ee er ee ee 
5cC8 04 17 E6 DE 35 60 CO 01 59 ODD. 6:08.20 (OR E>: 39 60 32 Ze S200). 36 06.06 Us Or Oe ae OF ee 
S5CDO E7 3E 34 60 Cé 10 36 04 FS 6048 10 AE 64 33 SA C6 FF E? 03 63C8 AO CO 1F 89 10 26 00 16 7F 
5CD8 17 £6 CF 35 60 CO 01 E? 3D 6090: SD OF OF Ge: 00 hr th ES or Sone. 8 ee eae eae on ae ea 
5CEO 30 £6 3D 86 10 30 97 74 7A NSB (66:02 526 089% CO re 20 Core a Oe ae ye oe be an ne 
SCE8 5D EB 3E F7 11 £1 C6 EA 63 S080: 47 ES RE 27 RE 36: 56 38 Be ooee ee ee ee ean ee 
SCFO EB 3C 36 04 F6 11 E1 37 CC 6069 FO 11 De 36°00 a7 Eo 25 C8 Bree DE Gy oe eo ae eee oa ee 
SCF8 02 36 06 E6 D1 CO 00 26 2F 14 S070. 2S. 00 26.108. 38 eo re as on 63FO £1 36 04 17 DA F5 35 60 ED 
econ G2 REE ba Sr GEOL Gk. as 6078 E3 8E 11 A9 3A E6 B4 FO 97 63F8 E6 3F 86 OB 30 97 74 5D Bé AD 
=f a ordre 6080 11 Di 36 04 17 E3 OE 35 39 6400 CB 23 36 04 C6 F9 36 04 85 
1 OF 6088 60 EB CO E7 3E E6 3D EO 1B 6408 E6 Di E7 3C F6 11 CB 10 28 
5010 37 02 36 06 E6 Di CO OA 63 6090 3F 23 03 Cé FF 21 SF 36 CF 6410 27 00 06 Fé 11 CB F?7 11 7B 


LISTLOG 247 


QIFM-7“JDYRE ALDI" JOTSLIIAR RR20K—-Y) 


6418 
6420 
6428 
6430 
6438 
6440 
6448 
6450 
6458 
6460 
6468 
6470 
6478 
6480 
6488 
6490 
6498 
64A0 
64A8 
64B0 
64B8 
64CO 
64C8 
6400 
6408 
64E0 
64E8 
64F0 
64F8 
6500 
6508 
6510 
6518 
6520 
6528 
6530 
6538 
6540 
6548 
6550 
6558 
6560 
6568 
6570 
6578 
6580 
6588 
6590 
6598 
65A0 
65A8 
65B0 
65B8 
65CO 
65C8 
65D0 
6508 
65E0 
65F8 
65F0 
65F8 
6600 
6608 
6610 
6618 
6620 
6628 
6630 
6638 
6640 
6648 
6650 
6658 
6660 
6668 
6670 
6678 
6680 
6688 
6690 
6698 
66A0 
66A8 
66B0 
66B8 
66C0 
66C8 
66D0 
6608 
66E0 
66E8 
66F0 
66F8 
6700 
6708 
6710 
6718 
6720 
6728 
6730 
6738 
6740 
6748 
6750 
6758 
6760 
6768 
6770 
6778 
6780 
6788 


248 


DC 34 60 Cé F9 36 
3F 86 OB 3D 97 74 
04 17 EC 57 35 60 
6E 02 CA 20 34 60 
E1 36 04 17 DA D1 
Eé 3F 86 0B 3D 97 
CB 2A F? 11 CA F6 
86 03 3D 97 74 50 
F6 11 E€1 CO OD 27 


LOGIN “1985 No.9 


04 
5D 
17 


CB 
2F 
45 
a9 
OE 
FF 
56 
07 
61 
65 
24 
SA 
67 
OE 
54 
5A 
B3 
09 
6A 
85 
3F 
Aé6 
SF 
52 
39 
25 


AS 


EC 


A3 


6790 
6798 
67A0 
67A8 
67B0 
67B8 
67CO 
67C8 
6700 
67D8 
67E0 
67E8 
67FO 
67F8 
6800 
6808 
6810 
6818 
6820 
6828 
6830 
6838 
6840 
6848 
6850 
6858 
6860 
6868 
6870 
6878 
6880 
6888 
6890 
6898 
68A0 
68A8 
68B0 
68B8 
68C0 
68C8 
6800 
6808 
68E0 
68E8 
68F0 
68F8 
6900 
6908 
6910 
6918 
6920 
6928 
6930 
6938 
6940 
6948 
6950 
6958 
6960 
6968 
6970 
6978 
6980 
6988 
6990 
6998 
69A0 
69A8 
69B0 
69B8 
69CO 
69C8 
69D0 
69D8 
69E0 
69E8 
69FO 
69F8 
6A00 
6A08 
6A10 
6A18 
6A20 
6A28 
6A30 
6A38 
6A40 
6A48 
6A50 
6A58 
6A60 
6A68 
6A70 
6A78 
6A80 
6A88 
6A90 
6A98 
6AA0 
6AA8 
6AB0 
6AB8 
6ACO 
6AC8 
6AD0 
6AD8 
6AE0 
6AE8 
6AFO 
6AF8 
6B00 


24 
co 
03 
20 
BA 
20 
DD 
BC 
F6 
D1 
AC 
3F 
i1 
17 
F7 
Di 
Cé 
Fé 


35 


ES 


D7 


14 


6B08 
6B10 
6B18 
6B20 
6B28 
6B30 
6B38 
6B40 
6B48 
6B50 
6B58 
6B60 
6B68 
6B70 
6B78 
6B80 
6B88 
6B90 
6B98 
6BA0 
6BA8 
é6BB0 
6BB8 
6BCO 
6BC8 
6BD0 
6BD8 
6BE0 
6BE8 
6BFO 
6BF8 
6C00 
6C08 
6C10 
6C18 
6C20 
6C28 
6C30 
6C38 
6C40 
6C48 
6C50 
6C58 
6C60 
6C68 
6C70 
6C78 
6C80 
6C88 
6C90 
6C98 
6CA0 
6CA8 
6CBO 
6CB8 
6CCO 
6CC8 
6CDO 
6CD8 
6CEO 
6CE8 
6CFO 
6CF8 
6000 
6D08 
6010 
6018 
6D20 
6D28 
6030 
6038 
6040 
6048 
6050 
6058 
6060 
6068 
6070 
6078 
6D80 
6D88 
6090 
6098 
6DA0 
6DA8 
6D0B0 
6DB8 
6DCO 
6DC8 
6DD0 
6DD8 
6DE0 
6DE8 
6DF0 
é60F8 
6E00 
6E08 
6E10 
6E18 
6E 20 
6E28 
6E30 
6E38 
6E40 
6E48 
6E50 
6E58 
6E60 
6E68 
6E 70 
6E 78 


EB 
E9 
04 
17 
3C 
30 
Fé 
19 
86 
3E 
E7 
11 
E6 
04 
36 
EB 
36 
E? 
3C 
02 
27 
11 
04 
24 
34 
E6 
BC 
FF 
3A 
37 
co 
39 
37 
D5 
8E 
36 
03 
04 
3A 
D7 
Cé 
E6 
EO 
E4 
ES 
E6 
17 
3A 
3C 
3C 
11 
10 
E6 
Dé 
Aé 
E6 
21 
26 
36 
03 
04 
Cé 
00 
17 
09 
34 
11 
E6 


Cé < 


60 
11 
60 
04 
35 
09 
B2 
3F 
04 
FF 
11 
21 
3F 
SF 
60 
35 
17 
D5 
27 
Cé 
30 
06 
FF 
36 
06 
FF 
21 
pa 
36 
60 
35 
27 
05 
Cé 
60 
84 
04 
BE 
34 
Ai 
04 


6C : 


E? 
40 
11 
C8 
60 
04 
Cé 
11 
1£ 
75 
F6 
CB 
E? 
11 
E6 
36 
E6 
Cé 
04 
04 
02 
3A 
07 
Cé 
E6 
EO 
60 
SF 
11 
03 
27 
04 
04 
35 
AC 
17 
03 
60 
84 
35 
21 
BE 
26 
10 
36 
36 
79 
3A 
04 
01 
3A 
89 
BE 
E? 
36 
CO 
36 
C6 
Fé 
FF 
Fa 
21 
34 
80 
04 
17 
10 
36 
36 
27 
Cé 
35 
32 
16 
c8 
17 
03 
30 
SF 
co 
E4 
1B 
co 
35 
34 
37 
35 
OA 
F7 
04 
D1 
SF 
Fé 
D1 
SF 
60 
35 
17 
35 
Fé 
53 
36 
36 
01 
04 
DS 
Ag 
Cé 
60 
po 
E1 


3B 


22 


SE 


@UAK7 


10000 
10100 
10200 
10300 
10400 
10500 
10600 
10700 
10800 
10900 
11000 
11100 
11200 
11300 
11400 
11500 
11600 
11700 
11800 
11900 
12000 
12100 


BIMSX(32K) “FI yRP-Y— 


44) JDISL(BASIC) 


ON ERROR GOTO 11500 

FOR 1=0 TO 7:COLOR=(I,1):NEXT 

COLOR 7,0:WIDTH80,25:CONSOLE 0,25,0,0 
PRINT'S"-h J #°-9 F FSITEVZ.* 
LINEINPUT" 774: %-A3 3 FS 

EXEC&H11E6 


IF F$<>°* THEN LOADM FS 


EXEC&H11E6:WIDTH: COLOR=(4,7):COLOR=(7,4):COLOR=(3,0): EXEC&H1 200 
IF PEEK(&H7000)=0 THEN END 

IF PEEK(&H7000)=45 THEN EXEC&H1200:GOTO 10800 

"3FS$ 


LINEINPUT 774: #-h? 
EXEC&H11E6 

SAVEM F$,&H2100, &H31FF,&H2100 

EXEC&H11E6: PRINT: PRINT:PRINT3:PRINT3PRINT3PRINT:EXEC&H1200:GOTO 10800 
END 

IF ERL=10600 THEN EXEC&H11E6:BEEP:RESUME 10400 

IF ERL<>11200 THEN ERROR ERR:END 

IF ERR<>64 THEN EXEC&H11E6:BEEP:RESUME 11000 

PRINT"Are you sure(Y or N)? °3tA$=INPUTS(1)sPRINTAS 

IF Ag="Y" OR Ad="y* THEN KILL F%:RESUME 11200 

IF AG$="N° OR A$="n*° THEN EXEC&H11E6:RESUME 11000 

GOTO 11800 


MSX(32K) | 
JSyYRP—V— POPSLUAR 


BiN7OFIAIS, HUHAALC UUER ST SEAS BEAL. BEA“ BA CER TSEHA.. COPYRIGHT © 1985 by Yasunori Takahara 


JaTPFLEAC3A, 
Lt BASIC 72, #TuU—Y—#HFT biAA, CSAVE*BL 
OOD’ [RETURN] C¥—7; CLEAR 200, &HBFFF|RETU 
RNJ@4T L. VP Vet SA, VY YEO e—Tis,. 
BSAVE“MAP% &HE000, &XHEFFF, &HE000 | RETURN| 


QUAI 


REM xxxxx BLOOD ARMOR 

REM xxxxx 1985 BY Y.TAKAHARA 

REM xxxxx FOR MSX(32K) 

SCREENO: COLOR15,4,4:WIDTH40: KEYOFF 

CLEAR200, &HBFFF: KEY1,CHR$ (&HFF) +" RUN” +CHR$(13> 


72, HfRIC BASIC &4FT BAA, &—TFLEG,. avr kis 
CSAVE “MAIN” [RETURNI72, CD3AANTFATFFIAILY 
cB ey doa BASIC AIIFC1I ADF -—Ticr 
—TFIFA TIL, HSiIlsr, B—-V7—*® CLOAD [RETURN | 
Ca—kKLT RUN[RETURN] Civ, fRILA—-hAY—-b TS, 


Bee. Vie 


ee a” f om 





a= J— 

65 LOCATE14,8:PRINT°BLOOD ARMOR“ 
80 IF INKEY%=CHR$(&HFF) THEN 90 
85 GOTO 80 


90 LOCATE10,12:PRINT“LOADING BLOOD ARMOR“ 
100 BLOAD“CAS: “:CLOAD 


LOCATE15,12:PRINT°HIT Fi KEY” 


evAbe voy IOI SL 





LISTLOG 249 


"JOTSILIIAb (art 020\—- FY) 


SIMSX(32K)“TIyYRP-V—-"FOTSLIIAR (HH102N—-Y) 


E208 
E2D8 
E2E@ 
E2E8 
E2F@ 
E2F8 
E368 
E388 
E318 
E318 
E320 
E328 
E338 
E338 
E348 
E348 
E358 
E358 
E368 
E368 
E378 
E378 
E388 
E388 
E398 
E398 
E3A@ 
E3A8 
E3B8 
E3B8 
E3C@ 
E3C8 
E308 
E308 
E3E@ 
E3E8 
E3F@ 
E3F8 
E480 
E468 
E418 
E418 
E420 
E428 
E438 
E438 
E448 
E448 
E458 
E458 
E468 
E468 
E478 
E478 
E488 
E488 
E498 
E498 
E4AG 
E4A8 
E4Be 
E4B8 
E4C@ 
E4C8 
E408 
E408 
E4E@ 
E4E8 
E4FQ 
E4F8 
E588 
E568 
E518 
E518 
E528 
E528 
E538 
E538 
E548 
E548 
E558 
E558 
E568 
E568 
E5786 
E578 
E58@ 
E588 
E598 
E598 
ESA@ 
ESA8 
ESB@ 
E5B8 
ESC@ 
ES5C8 
E508 
E508 
ESE@ 
ESE8 
ESF@ 
ESF8 
E688 
E688 
E618 
E618 


250 


LOGIN 
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B7 


38 


E2 


8D 


E628 
E628 
E638 
E638 
E648 
E648 
E658 
E658 
E668 
E668 
E678 
E678 
E688 
E688 
E698 
E698 
E6AG 
E6A8 
E6B@ 
E6B8 
E6C@ 
E6C8 
E608 
E6D8 
E6E@ 
E6E8 
E6F@ 
E6F8 
E788 
E788 
E718 
E718 
E720 
E728 
E738 
E738 
E748 
E748 
E758 
E758 
E768 
E768 
E778 
E778 
E788 
E788 
E798 
E798 
E7A@ 
E7A8 
E7B@ 
E7B8 
E?7C@ 
E?7C8 
E708 
E7D8 
E7E@ 
E7E8 
E7F@ 
E?7F8 
E88@ 
E888 
E818 
E818 
E820 
E828 
E838 
E838 
E848 
E848 
E858 
E858 
E868 
E868 
E870 
E878 
E88e 
E888 
E898 
E898 
E8A@ 
E8A8 
E8Be 
E8B8 
E8C@ 
E8C8 
E808 
E8D8 
E8E@ 
E8E8 
E8F@ 
E8F8 
E988 
E988 
E918 
E918 
E928 
E928 
E93@ 
E938 
E948 
E948 
E958 
E958 
E968 
E968 


1A 


cc 


3A 


E9786 
E978 
E988 
E988 
E998 
E998 
E9A@ 
E9A8 
E9B@ 
E9B8 
E9C@ 
E9C8 
E9D8 
E9D8 
E9E@ 
E9E8 
E9F@ 
E9F8 
EAG@ 
EAG8 
EA1@ 
EA18 
EA2@ 
EA28 
EA38 
EA38 
EA4@ 
EA48 
EAS5@ 
EA58 
EA6@ 
EA68 
EA7@ 
EA78 
EA8@ 
EA88 
EA986 
EA98 
EAA@ 
EAA8 
EAB@ 
EAB8 
EAC@ 
EAC8 
EAD@ 
EADS 
EAE@ 
EAE8 
EAF@ 
EAF8 
EBGe@ 
EB@8 
EB18@ 
EB18 
EB2@ 
EB28 
EB3@ 
EB38 
EB4@ 
EB48 
EBS@ 
EBS8 
EB6@ 
EBé8 
EB7@ 
EB78 
EB8@ 
EB88 
EB9@ 
EB98 
EBA@ 
EBA8 
EBB@ 
EBB8 
EBC8@ 
EBC8 
EBD@ 
EBD8 
EBE@ 
EBE8 
EBF@ 
EBF8 
EC8@ 
EC88 
EC18 
EC18 
EC2@ 
EC28 
EC38 
EC36 
EC46 
EC48 
EC58@ 
EC58 
EC6@ 
EC6é8 
EC7@ 
EC78 
EC8@ 
EC88 
EC9@ 
EC98 
ECA@ 
ECA8 
ECB8@ 
ECB8 


28 


FC 


Fa 


ECC@ 20 28 26 28 28 28 28 28 AC EDD8 28 28 20 28 
ECC8 28 20 28 62 61 66 66 66 89 EDE@ 28 28 28 6C 
ECD@ 2@ 280 20 28 20 28 28 28 BC EDE8 6B 6B 6B 6B 
ECD8 20 28 20 280 28 66 66 66 96 EDF@ 82 28 28 64 
ECE@ 20 20 2@ 20 73 73 73 73 18 EDF8 65 6B 6B 6B 
ECE8 73 2@ 20 20 28 62 66 66 FS EE@@ 63 20 64 66 
ECF@ 20 20 2@ 20 62 61 62 61 E2 EE@8 6B 6B 6B 6B 
ECF8 62 61 62 61 62 28 66 66 B8 SF FE1@ 66 20 66 66 
ED@@ 20 20 20 72 20 20 280 28 3F FE18 6B 6B 6B 6B 
ED@8 2@ 28 28 28 28 62 61 62 BA EE2@ 66 28 66 66 
ED1@ 28 20 20 20 62 61 62 61 63 FE28 6B 6B 6B 6B 
ED18 62 61 62 61 62 28 2@ 28 4D FE3Q 66 20 66 66 
FD2@ 2@ 20 20 28 28 28 28 28 @D FE38 28 28 20 20 
ED28 82 2@ 28 28 28 62 28 20 B9 FE4Q@ 62 28 61 62 
ED3@ 20 6C 28 20 91 91 91 91 20 EFE48 61 62 61 62 
ED38 91 91 20 28 28 20 62 28 49 FES@ 28 2@ 20 20 
ED4@ 61 62 61 62 61 62 61 62 39 EFEE58 7A 28 79 20 
ED48 61 62 20 20 20 20 28 61 FI FE6Q@ 61 66 66 65 
ED5@ 28 28 28 28 20 26 28 28 3D FE68 20 63 28 63 
ED58 28 28 20 28 28 28 62 28 87 EE7O. 20 61 66 66 
ED68 28 20 28 28 63 280 28 20 98 FE78 28 66 28 66 
E068 20 20 280 280 280 28 28 61 96 EFSQ 26 20 61 66 
ED7@ 20 28 28 28 66 28 28 20 A3 FE88 28 66 28 66 
ED78 28 20 28 28 28 20 62 20 A7 FE9@ 28 62 82 66 
FD8@ 28 20 7A 8@ 66 65 79 79 64 EE9® 20 66 20 66 
ED88 79 79 79 28 28 28 28 64 C4 FEAQ 20 28 61 62 
FD9@ 20 61 62 61 62 61 62 61 47 EFAS 20 62. 20 62 
ED98 62 61 62 61 62 61 62 61 1 FEB@ 20 63 20 20 
EDA@ 20 28 20 20 280 28 28 28 80D FEBS 20 2@ 2@ 6C 
EDAS8 28 280 28 20 20 6C 20 20 E1 EECA 20 66 66.66 
EDB@ 28 28 6C 28 6C 28 6C 20 81 FEC8 20 64 66 66 
EDB8 28 2@ 62 61 62 61 62 28 ED EL08 20 462 61 62 
EDC@ 2@ 6C 28 6C 28 6C 28 6C ODD FEDS 62 61 62 61 
EDC8 28 2@ 2@ 28 28 28 28 28 BS FEE@ 28 26 20 26 


EDD@ 61 62 61 62 61 66 66 65 D5 EFE8 20 28 28 20 
@UAKS BASICIZNOIS 


10 REM xxxxx BLOOD ARMOR 

20 REM xxxxx FOR MSX SYSTEM 32K 

30 REM xxxxx BY Y.TAKAHARA 1985 SPRING 

40 SCREEN!,0,0:WIDTH20:COLORI5,1,1 

50 CLEAR300, &HBFFF : DEFINTA-Z: KEYOFF 

60 DEFUSRO=&HCOOC: DEFUSR1=&HCO11 

70 DEFUSR2=&HCO000: DEFUSR3=&HCO028 

80 DEFFNM$(X, Y)=CHR# ( PEEK(&HDOOO+Y*16+X) 

90 LOCATE4,10:PRINT°WAIT A MOMENT” 

100 R=RND(-TIME) : GOSUB820:GOSUB1070 

110 GOSUB3290:WIDTH20 

120 PLAY"V15S10L1605D4.DDD8D3”" , “V5S10M600003L8DDDD 
DDD4*° 

130 PLAY"“L1605E4. EEE8E3", “EEEEEEE4“~ 

140 PLAY“LI605F4.FFF8F3", “FFFFFFF4° 

150 PLAY"E4.D2", “EEED2” : PLAY"S9M5000° 

160 X=0:Y=6:VT=100:AT=10:MM8%="" :GS=0 

170 SD=0: PW=0: BP=O:MX=X:MY=Y:KY=0:BS=0 

180 SU=0:C=15:A=USR2(0) :GOSUB3540 

190 PS=4:GOSUB670 

200 LOCATE6,11:PRINT"GOOD.-LUCK_™* : TM=20 

210 IF PLAY(CO) THEN 210 

220 REM xxxxx MAIN 

230 AS=INKEY$% 

240 IFA%=CHR$ (7) THENGOSUB2650:LOCATE6, 11:PRINT“ REP 
LAY” :GOTO120 

250 IF CY-6) MOD 64=0 AND Y<>6 AND Y¥64-1=SU THEN 
MX=X:MY=Y:SU=Y¥64: PLAY“L1605CCC” : LOCATE7, 11:PRINT” 
ROUND::* ; RIGHTS (STR$ (SU+1),1): TM=10 

260 IFA%=CHR$(10)THEN GOSUB1150 

270 IF TM>OTHEN TM=TM-1:IF TM=O THEN GOSUB 2650 
280 XS=0:DWS=FNM$(X, Y+1) 

290 IF DW8<>" “ANDDWS<>"K" THEN 320 

300 Y=Y+1:PS=4:IF Y=249 THEN C=8 

310 GOSUB760:GOSUB670:GOTO0420 

320 T=STRIGCO) 

330 XX=X: YY=Y:S=STICK(O) 

340 IF S=3 THEN X=X+1:XS=1:Y=Y+T:PS=2 

350 IF S=7 THEN X=X-1:XS=-1:Y=Y+T:PS=0 

360 IF X>15 OR X<O THEN X=XX: Y=YY:T=0 

370 DWS=FNM$(X,Y):IFDWS="1"°AND T=O THEN440 

380 IF(DW$>="a"ANDDWS$<="f" DORDWS="1" THEN X=XX: Y=Y 
Y:GOTO410 

390 IF T AND -CABS(XS)) THEN GOSUB640:GOSUB700:GOT 
0420 

400 IFDWS<>" ° THEN 1210 

410 GOSUB640 

420 IF BS=1 THEN GOSUB530 

430 GOTO220 

440 REM xxxxx BALL 

450 IF BS=O0O THEN BS=1:BX=X+XS:BY=Y ELSE X=XX:GOTO4 
10 

460 RLS=FNM$(BX,BY) 

470 IF RL$<>” * AND RL$<>°kK" THEN BS=0:X=XX:GOTO410 
480 POKE&HDOOO+YxX16+X, 32 

490 LOCATEX+2,18:PRINT” “ 

500 POKE&HDOOO+BYx16+BX, 108 

510 LOCATEBX+2,18:PRINT"1" 

520 GOTO410 


BMSX(32K)“*FSyvRP-V—"FOTSLIIAb HH102N—-Y) 


28 63 20 68 EEF@ 61 62 61 62 61 62 61 62 EA 
61 66 66 E6 EEF8 61 62 28 28 20 28 28 28 69 A@ 
6B 66 28 DD EF@@ 20 28 26 20 28 28 280 20 EF 
28 61 66 4F EF@8 20 28 2@ 28 6C 28 28 20 43 
6B 66 280 E7 OF EF1@ 28 2@ 20 28 20 28 28 26 FF 
62 26 66 89 EF18 20 62 61 62 61 62 20 20 4F 
6B 66 20 FE EF2@ 20 63 2@ 2@ 28 20 20 28 52 
28 61 66 9D EF28 28 28 28 28 20 28 28 28 17 
6B 66 20 BE EF3@ 20 66 28 28 20 28 28 20 65 
65 28 62 AD EF38 20 2@ 20 20 20 28 28 20 27 
6B 62 28 1A EF4@ 28 66 65 28 69 28 28 28 863 
66 65 28 Ci EF48 28 2@ 20 28 28 6C 28 86 £3 
28 28 28 26 EF5@ 28 61 62 61 62 61 62 61 89 
62.61 62 F9 EF58 62 61 62 61 62 61 62 61 53 
62 61 62 42 EF6@ 20 2@ 28 26 28 28 26 20 4F 
20 74 20 OF EF68 20 28 28 28 20 28 20 28 57 
28 91 28 C3 EF7@ 28 28 28 28 20 28 20 20 SF 
63 280 63 E6 EF78 280 280 20 2@ 28 20 28 280 67 
63 20 64 63 EF8@ 62 61 62 61 62 61 62 61 7B 
66 28 66 B? EF88 62 61 62 61 62 61 62 26 42 
66 28 66 7E EF9@ 92 280 28 28 28 28 20 20 Fi 
66 20 66 81 EF98 28 2@ 28 2@ 28 20 28 20 87 
66 20 66 BE EFA@ 66 66 66 66 66 66 66 66 BF 
66 20 66 F4 EFAS 66 66 66 66 66 66 66 66 C7 
66 20 66 SE EFB@ 66 66 66 66 66 66 66 66 CF 
62 20 62 95 EFB8 66 66 66 66 66 66 66 66 OD? 
62 20 61 90D EFC@ 43 4F 4E 47 52 41 5455 12 
20 20 20 El EFC8 4C 41 54 49 4F 4E 53 SF 38 
28 20 20 F2 EFD@ 66 66 66 66 66 66 66 66 EF 
65 20 63 4E EFD8 66 66 66 66 66 66 66 66 F? 
65 2@ 64 55 EFE@ 88 43 4F 4F 54 88 42 4C Al 
62 20 61 47 EFES 4F 4F 44 88 41 88 32 88 C4 
61 62 61 D2 EFF@ 66 66 66 66 66 66 66 66 OF 
2@ 6C 20 1A EFF8 66 66 66 66 66 66 66 66 17 D7? 


REM xxxx BALL DOWN 
DWS=FNM$(BX,BY+1) 
IF DW$<>" “AND DWS$<>"k” THEN BS=0:RETURN 
IFBY-Y>5 THEN 600 
LOCATEBX+2,18+BY-Y:PRINT” “3 
IFBY-Y>4 THEN 600 
LOCATEBX+2, 19+BY-Y:PRINT"1°3 
IF BY-1=Y AND X=BX THEN Y=Y+1:GOSUB760 
POKE&HDOOO+BYx16+BX, 32: BY=BY+1 
POKE&HDOOO+BYx*!16+BX, 108 
RETURN 
REM xxxxx PUT SPRITE 
IF XS=OTHENPS=4:GOTO680 
CT=(CT+1)MOD2:PS=PS+CT 
XO=(X+8)*8: YO=127+16 
PUTSPRITEO, (X0,Y0),C,PS 
RETURN 
REM xxxxx SCROLL(DOWN) 
LOCATEO, 13: PRINTCHR$(27)+°L" 
A=USROCY-5) 
LOCATE1,13:PRINT"f"; 
LOCATE18,13:PRINT“f£"; 
RETURN 
REM *xxxxx SCROLLCUP) 
LOCATEO, 13: PRINTCHR$(27)+°M" 
A=USR1CY+5) 
LOCATE1,23:PRINT°f"; 
LOCATE18,23:PRINT"f£"; 
RETURN 
REM xxxxx SPRITE 
RESTORE2860 
FORI =OTO4: BS="" : FORJ=O0TO7 : READA$ 
A=VAL("&h" +A%) : BS¢=B$+CHR$ CA) 
NEXT: SPRITE$(I)=B8:NEXT 
REM xxxxx 
RESTORE2920 
READA$ : A=VALC "&h" +A$ ) 
IFA%="x*" THEN 940 
READB$ : FORI=OTO7 
B=VAL( “°&h" +MID$(BS,I*2+1,2)) 
VPOKEAx8+I,B:NEXT:GOTO890 
REM xxxxx 
RESTORE980:FORI=5 TO &H11 
READAS : A=VAL( "&h" +A$) 
VPOKE&H2000+I1,A:NEXT 
DATA F4,F4,F4,F4,F4,F4,F4,D1,81,B1,51,71,44 
REM xxxxx 
FORI=&H180TO&H2D7 
BS=BIN$(VPEEK(CI)) 
B*=RIGHT$( “0000000"+B$8, 8) 
FORJ=7TO1ISTEP-1 
IFMID$(BS,J,1)="1" THENMIDS(BS,J+1,1)="1" 
NEXT: VPOKEI, VAL(°&B" +B > 
NEXT: RETURN 
REM xxxx*x MACHINE LANGUAGE 
RESTORE1 120: AD=&HCOO0O 
READA$ : IFA%="x"THEN RETURN 
A=VAL(C"&h"+A$) 
POKEAD, A: AD=AD+1:GOTO1090 


LISTLOG 251 


SIMSX(32K)“TIYRP-V—-"JOTILIIAK MR N2N—-Y) 


1120 DATA 21,00,E0,11,00,D0,01,00,10,ED,B0,C9 

1130 DATA 11,A8,19,18,06,11,E8,1A,18,01,00,2A,F8,F 
7,29,29,29,29,01,00,D0,09,01,10,00,C3,5C,00 

1140 DATA 21,00,D0,11,00,E0,06,FF,0E,0F,7E,FE,6C,C 
C,46,C0,1A,FE,6C,CC, 4A,CO,23,13,0D,20,EF,10,EB,C9, 
3E;20,77,C9, 3E,6C,77;C9.% 

1150 REM xxxxx JUMP 

1160 X=MX: Y=MY:GOSUB2650:LOCATE8,11:PRINT°JUMP_°:T 
M=2 

1170 A=USR3(0):BS=0 

1180 FORI=4TO6:POKE&HD620+I1,145:NEXT 

1190 GOSUB35 40: PS=4:GOSUB670 

1200 LOCATE7,11:PRINT”" ROUND.” ; RIGHT#(STR$(SU+1), 1) 
: TM=10: RETURN 

1210 REM xxxxx BATTLE 

1220 IF DWS<>"h" THEN 1260 

1230 VT=VT-30:GOSUB2040: PLAY"L1603C” 

1240 IF VT<1 THEN VT=0:GOSUB2040:GOTO2660 

1250 GOTO410 

1260 IF DW$<>"k" THEN 1300 

1270 VT=VT-2:GOSUB2040: PLAY"L1603C” 

1280 IF VT<1 THEN VT=0:GOSUB2040:GOTO2660 

1290 GOTO410 

1300 PS=4:GOSUB670 

1310 IF DW$<>"i" THEN 1350 

1320 TV=9999: TA=999:GOSUB2100 

1330 GOSUB2650:LOCATE3, 11:PRINT°ORIGINAL»»BLOOD_":T 


1340 GOTO410 

1350 IF DW$<>"r" THEN 1380 

1360 TV=3000: TA=999: FA=50:GOSUB2100 
1370 GOTO2260 

1380 IF DW$<>"s" THEN 1410 

1390 TV=400: TA=80: FA=10:GOSUB2100 
1400 GOTO2330 

1410 IF DWS<>"t" THEN 1440 

1420 TV=500: TA=100: FA=20:GOSUB2100 
1430 GOTO2500 

1440 IF DW$<>"y" THEN 1470 

1450 TV=200: TA=40: FA=10:GOSUB2100 
1460 GOTO2570 

1470 IF DW8<>"z" THEN 1500 

1480 TV=250: TA=60: FA=12:GOSUB2100 
1490 GOTO2500 

1500 IF DW$<>"{" THEN 1530 

1510 TV=200: TA=50: FA=8 : GOSUB2100 
1520 GOTO2330 

1530 IF DWS<>"@" THEN 1600 

1540 IF Y<110 THEN 1570 

1550 IF KY=1 THEN 1570 

1560 GOSUB2650:LOCATES,11:PRINT"“CAN*T..OPEN_“:TM=10 
:GOTO410 

1570 POKE&HDOOO+Yx*16+X, 32 

1580 LOCATEX+2,18:PRINT” “ 

1590 GOTO2330 

1600 IF DWS<>"@" THEN 1640 

1610 POKE&HDOOO+Yx*16+X, 32 

1620 LOCATEX+2,18:PRINT" “ 

1630 AT=AT+50:GOTO2500 

1640 IF DWS<>"4@" THEN 1680 

1650 POKE&HDOOO+Yx*16+X, 32 

1660 LOCATEX+2,18:PRINT” ° 


1670 GOTO2470 

1680 IF DWS<>°@" THEN 1720 

1690 POKE&HDOOO+Y*16+X, 32 

1700 LOCATEX+2,18:PRINT” ° 

1710 GOTO2400 

1720 IF DW$<>°&8"° THEN 1750 

1730 TV=Yx2: TA=Y¥4:FA=TA¥2+1:GOSUB2100 

1740 GOTO410 

1750 IF DWS<>"%" THEN 1790 

1760 POKE&HDC22,ASCC("8"> 

1770 GOSUB2650:LOCATE3, 11:PRINT”°CAPPLE“*S)GRAVE_“:T 
M=20 

1780 GOTO410 

1790 IF DW8<>"&" THEN 1860 ELSE PLAY"“M20000L801iC1M 
5000° 

1800 GOSUB2650:LOCATE6, 11:PRINT°OH»GOHST_”: TM=10 
1810 IF AT>500 THEN VT=9000:GO0TO1830 

1820 VT=VTx.1 

1830 GOSUB2040: POKE&HDC22, 32 

1840 LOCATEX+2,18:PRINT” ”° 

1850 GOTO410 

1860 IF DW$<>"m" THEN 1900 

1870 TV=3000: TA=500: FA=60:GOSUB2100 

1880 GOSUB2650:LOCATE4, 11:PRINT"“C-BLOOD.:ARMOR_™*: TM 
=10 

1890 GOSUB2040:GOTO410 

1900 IF DWS<>"u" THEN 1940 

1910 TV=100: TA=99:GOSUB2100 

1920 POKE&HDB48, 32 

1930 GOSUB2040:GOTO0410 

1940 IF DWS$<>"}" THEN 1980 
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1950 TV=1000: TA=999:GOSUB2100 

1960 POKE&HD3BA, 32 

1970 GOSUB2040:GOT0410 

1980 IF DWs<>"@" THEN 2020 

1990 POKE&HDOOO0O+Y*16+X, 32 

2000 LOCATEX+2,18:PRINT” ° 

2010 GOTO2600 

2020 IF DW$<>"\" THEN 410 

2030 GOTO 2720 

2040 REM xxxxx 

2050 A#S=RIGHT$("°000"+RIGHTS$(STRSC(VT),LENC(CSTR$ CVT) ) 
-1),4) 

2060 LOCATE2,3:PRINT”"VITALITYww 14>” 5 AS 

2070 A#=RIGHT$( "00" +RIGHTS(STRS CAT), LENCSTRSC(CAT))- 
13,3) 

2080 LOCATE2,5:PRINT“ATTACKi aun” 5 AS 

2090 RETURN 

2100 REM xxxxx BATTLE SUB 

2110 GOSUB2650:LOCATE7,11:PRINT"BATTLE_”®: TM=1 

2120 LOCATE10,9:PRINTRIGHT$( “.44»"+RIGHT$(STRSC( TV), 
LENCSTR$C(TV))-1),4)93":"3sRIGHTS(C “wus "+RIGHTS(STRSC(TA 
>, LENCSTR$(TA))-1),3) 

2130 VT=VT-RND(1)*TA: TV=TV-RND(1)xATx(GS+1) 

2140 IF VT<1 THEN VT=0:GOSUB2040:RETURN 2660 

2150 GOSUB2040 

2160 IF TV>O THEN 2220 

2170 GOSUB2650:LOCATE6,11:PRINT”" YOU.WIN_”“:FORI=OTO 
999:NEXT: TM=70: PLAY"L6406C16DEFC16DEF” 

2180 POKESHDOOO+Y*16+X, 32 

2190 LOCATEX+2,18:PRINT” ”* 

2200 AT=AT+FA: IFAT>999THENAT=999 

2210 GOSUB2040: RETURN 

2220 S=STICK(0O):FORI=0TO199:NEXT 

2230 IFS=3THEN X=X+1:RETURN360 

2240 IFS=7THEN X=X-1:RETURN360 

2250 PLAY"L1603C”" :GOTO2130 

2260 REM xxxxx GOLD SWORD 

2270 IF GS=1 THEN 410 

2280 GOSUB2650:LOCATE2, 11:PRINT” YOU..GET..GOLD. SWORD 
":TM=30 

2290 VT=VTxX2:IF VT>9S9999THEN VT=9999 

2300 IFGS=OTHENGS=1 :MM%=MM$+"p* 

2310 LOCATE3,8:PRINTMM$ 

2320 GOSUB2040:GOTO410 

2330 REM xxxxx POWER + 

2340 PLAY"O6L32CD2" 

2350 GOSUB2650:LOCATE3, 11:PRINT* YOU..GET..POWER” : TM= 


2360 VT=VT+100:IF VT>9999THEN VT=9999 

2370 IFPW=OTHENPW=1 :MM$=MM$+"°x" 

2380 LOCATE3,8:PRINTMMS 

2330 GOSUB2040:GOTO410 

2400 REM xxxxx POWER - 

2410 PLAY*O1DC2” 

2420 GOSUB2650:LOCATE3, 11:PRINT* YOU.GET..POISON” : TM 
=30 

2430 VT=VT-RND(1)*300-1:AT=AT*x.9:IF VT<1THEN VT=0: 
GOTO2660 

2440 IFBP=OTHENBP=1 :MM$=MM$+" 5” 

2450 LOCATE3,8:PRINTMM$ 

2460 GOSUB2040:GOTO410 

2470 REM xxxxx EMPTY 

2480 GOSUB2650:LOCATE6, 11:PRINT“EMPTY:.BOX” : TM=30 
2490 GOTO410 

2500 REM xxxxx SWORD 

2510 PLAY*O6L32CD2”" 

2520 GOSUB2650:LOCATE4, 11:PRINT” YOUs.GET::SWORD” : TM= 


2530 AT=AT+10:IF AT>999THEN AT=999 

2540 IFSD=OTHENSD=1 :MM%=MM$+"5° 

2550 LOCATE3,8:PRINTMM$ 

2560 GOSUB2040:GOTO410 

2570 REM xxxxx NOTHING 

2580 GOSUB2650:LOCATE2, 11:PRINT” YOUsGET.. NOTHING" :T 


2590 GOTO410 

2600 REM xxxxx KEY 

2610 PLAY”°O6L32CD2" 

2620 GOSUB2650:LOCATES, 11:PRINT” YOU..GET. KEY” : TM=30 
2630 KY=1:MM#=MM$+"q":LOCATE3,8:PRINTMMS 

2640 GOTO410 

2650 LOCATEO, 11:PRINTSTRING$( 20, "\»")3 : RETURN 

2660 REM xxxxx FINAL 

2670 PLAY" V15S9M5000L804G.G16DEG2”" 

2680 GOSUB2650:GOSUB2040 

2690 LOCATE1,11: PRINT” YOU..-LOSEwTRY AGAIN” 

2700 GOSUB2040 

2710 FORI=0TO9999:NEXT: PUTSPRITEO, (0, 200): GOTO110 
2720 REM xxxxx CONGRATULATIONS 

2730 PLAY”"S9M5000L405CFFE.D8C2.","V1IOL404CCCE.D8G2 


2740 PLAY“G8A8B-B-A.G8F2.","DDDF.E8F2.” 
2750 PLAY” AAAGFEDC", “CCCDEFGA" 


PLAY” G8A8B-B-A.G8F2", “DDDF.E8F2° 

PUTSPRITEO, (0,200): FORI=O0TO9 

IF THEN LOCATE1,23:PRINTSPC(18); 

IF THEN LOCATE2, 23: PRINT”“CONGRATULATIONS_ 


IF THEN LOCATE3, 23: PRINT” YOU. AREwGREAT" ; 
IF THEN LOCATE1, 23: PRINT®° THE WORLD. ISwSAV 


IF THEN LOCATE2, 23: PRINT” PRESENTED BYwY.T 


LOCATEO, 13: PRINTCHR$(27)+"M" 
NEXT 
IF INKEY$=CHR$(13) THEN 110 ELSE 2850 
REM xxxxx SPRITE 
DATA 60,6C,32,78,98,15,22,20 
DATA 30,30,18,18,18,08,08,08 
DATA 06,36,4C,1E,19,A8,44,04 
DATA OC,0C,18,18,18,10,10,10 
DATA 18,18,3C,5A,99,24,24,42 
REM xxxxx PCG 
68 ,052E5C7567C3DB7C 
69,989AB7D7571A2442 
6A,3C18183C7E7E7E3C 
6B,AA55AA55AA55AA55 
6C,O007CF6FAFAFEFE7C 
6D,989AB7D757 142442 
70,0103060C583060D0 
72,9898BCDA98 182442 
73,9898BCDA98 182442 
74,9898BCDA98182442 
78,3C18183C7E7E7E3C 
79,8CCCDE6D2C0C1221 
7A,8CCCDE6D2C0C1221 
7B, 8CCCDE6D2C0C1221 
80,0C7281C7F9E16638 
81,0C7281C7F9E16638 
82,0C7281C7F9E16638 
83,0C7281C7F9E16638 
84,0C7281C7F9E16638 
85,0C7281C7F9E16638 
91, 7CFEFE9292FE7C54 
92,00240081183CBD18 
93,0103060C583060D0 
94,18187E7E18183C7E 
95,18187EBD99181808 
75,18183C7EBD182466 
7D, 18183C7EBD182466 
5E, 3030102000000000 


4X1)'JI-A*SLOT MACHINE’ FOTSL'I Ab R1IAN—-Y) 


DATA 5F,183C3C1800181800 

DATA 71,3828381010181018 

DATA 61,FFFF7F1FOF070300 

DATA 62,FFFFDE8C80000000 

DATA 63, 7EFFFFFFFFFFFFFF 

DATA 64, 7FFFFFFFFFFFFFFF 

DATA 65,FEFFFFFFFFFFFFFF 

DATA 66,FFFFFFFFFFFFFFFF, x 

REM xxxxx TITLE 

WIDTH22: RESTORE3340 

LOCATE3, 2: PRINT" wR.P.wR.P.A. Gi” 
LOCATE3,5:PRINT°.»BLOOD.» ARMOR," 
LOCATE2,8:PRINT”.wHI Ts. RETURNYKEYy>” 
DATA” fbe c Gbe dbe db” 

DATA” f b f £££ ££ ee” 
DATA” fbe f ff ££ £ £" 
DATA” f b f £££ £€ £ b" 
DATA” ab bab bab bab ab” 

DATA 

DATA"dbe dbe db b dbe dbe” 
DATA°’f ££ £ £ £ @ £ £ F F* 
DATA’? ££ b £ £ ££ :-£ £ b" 
DATA*fbf fb f f f f f fb” 
DATA"b b b ab b b bab b a” 
DATA 

DATA°.1985..BYoY. YAKAHARA..” 
DATA ,x 

REM xxxxx 
LOCATEO, 10: PRINTCHR$(27)+°M* 
READA$ : IFA$=" x" THENRESTORE3340: GOTO3500 
LOCATEO, 23: PRINTA$; 
IFINKEY$=CHR$(13) THEN CLS: RETURN 
FORI=0OTO399:NEXT:GOTO 3480 

REM xxxxx CRT 

FORI=Y-STOY+5 
LOCATE1,1+18-Y:M%$="":FORJ=OTOI5 
D=PEEK(C&HDOOO+I X16+J) 
M$=M$+CHR$(D) :NEXTJ 

PRINT" £°+M$"° f°; :NEXT 

REM xxxxx 

FORI=0T012:LOCATEO,I 
PRINTSTRING$(20, "..")3 :NEXT 
LOCATE3, 1: PRINT” BLOODiau4» ARMOR” 
GOSUB2040 

LOCATE2,7:PRINT” ws»POINT” 
LOCATE2,8:PRINT” “;MM$;SPC(6-LENCMMS$) ) 
LOCATE2,9:PRINT” ? 

RETURN 
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BiN7OFILS, HUKAMAC LUE ST SEAS SEAL. BHI CER CAEHA.. COPYRIGHT © 1985 by Kunio Yukinaga 


CAP APPFAILXLY V-—ARILCEPHNTS, }) 
ZAhis BASIC EV YY BO27, FLAT COT AT 
CHEAZDC. F4AZOAKET 4AZT BASIC 2. 
F-TAMAT—T7 BASIC & IL 6_El7 TH SAAT K 
nh, EFIE) ZAK1MD BASIC #FT HAA, SAVESSL 


@UAK 1 BASICZOISL 


10 CLEAR &HEAOO:WIDTH 40:CLS 

20 IF ASCCRIGHT$(CGPAT$(255),1))=253 GOTO 80 

30 PRINT"X1 is loading machine code and roll data*:PRINT:LOADm"SLOT CG SUB":’&HE 
AOO-&HFABD 

40 PRINT: PRINTTAB(8)°X1 is defining character”:PRINT:COLOR 1,0 

50 FOR 1=0 TO 15:PRINTTAB(12)3:CGEN1:FOR h=O TO 15:PRINT#OCHR$(h*x16+1)3 :NEXT:CGE 
NO: PRINT: NEXT 

60 CALL &HFA80 

70 GOSUB 9310 

80 CLEAR &HF8FF 

100 ’ initialize 

110 INIT:CLICKOFF:DEFINT a-z:DEFFNr(r)=INTCRND(1)*r) 

120 DIM 1%(5),p8(7),y$C€17),pC17), £617), r8¢€2,2),51¢16),5209),11(5),1r(5),g(200) 
130 GOSUB 9010:FOR i=1 TO 5:PALET i,0:NEXT:PALET6,1:PALET7, 1 

260 ’ coin chr 

270 cOs$=" “3:C18="° OF" :c28="¥V27" :c58=c1$+c1$t+c1l$t+c1$+c1$:Cc10%$=c2$+C2$+C28+C2$+C 
2% :C50%=c10$+C10%+C10%+C10%+C10% :coins="p_-q_ Ira” 

300 ” sound make 

320 s#=542:d#=2°C(1/12):FOR i=O TO 16:s#=s#/d#:s1(1I)=(s#+.5) AND 255:NEXT 

330 s2¢9)=s1(0):82(8)=s1(4):82(7)=51¢02):52(6)=s1(5):52(5)=81(4) :82(04)=81(7):82¢3 


OT’ TH-TFTSB, ELTKIEVL YH. 
MON[RETURN| C€=V7ICAYN, VAREBN ICES 
AD, &—T7l< SAVEM‘SLOT CG SUB? &HEA0O, 
&HFABD, &HEA00([RETURN] C7A—7—7, ABAY 
wAQy heyy, BitFvBLAC KCN, 





LISTLOG 253 


4X1>)'J-A*SLOT MACHINE” JOT5SL AR (BANS) 


=s1(5):82(2)=81(9):82¢01)=s1¢07):s2¢(0)=s1¢11) 

340 ’ screen initialize 

360 RESTORE 7810:FOR i=1 TO 5:READ 11(¢1),1rC€i):NEXT 

370 RESTORE 7010:GOSUB 6010 

380 GET@(8,13)-(71,20),9,7:PUT@(10,13)-(€73,20),g,0R,7 

400 ’ bar get 

410 yl= 16:y2= 39:x%1=296:x2=312:GOSUB5210:b1%=b$% 

420 yl= 40: y2=135:x1=296:x2=304:GOSUB5210:b2%=b$% 

430 yl=144: y2=167:x1=296:x2=312:GOSUB5210:b3%=b%:RESTORE 7410:GOSUB 6010 

440 yl=144: y2=167:x1=296:x2=312:GOSUB5210:b4%=b% 

450 POSITION 296,144:PATTERN -24,b38 

460 ” game init 

470 o$=CHR$(11,15):demo=0 

500 ” game start ry 
510 tlma=0:ma=O:no=0:COLOR 7 

550 ’ machine change 

560 FOR i=1 TO 5:PALET i,0:NEXT:CONSOLE:CLS:PALET6, 1:PALET7, 1 

570 no=not+1:ma=50 

580 LINE(111,132)-¢€223, 139),PSET,0,bf 

590 ON no RESTORE 8000,8050,8100,8150, 8200, 8250, 8300, 8350, 8400, 8450 

600 ’ roll set 

620 a=&HFAFF:FOR j=0 TO 2:READ a$%:n=LEN(a$):FOR i=1 TO n:POKE ati,ASC(MID$(a$%,i, 
1)):NEXT:POKE &HFAFO+j,FNr(n):POKE ati,O:a=at&H100:NEXT 

700 * yaku set 

710 FOR i=1 TO 17:READ y$:IF y$="e" GOTO 810 ELSE READ p(i)d:yf=LEFT$Cy$,1)="-"AN 
D4 OR MID$(y%,2,1)="-"AND2 OR RIGHTSCy$%,1)="-"ANDI: fC id=yf:y$Cld=y$: yn=1:NEXT 
800 ” roll print 

810 SOUND 7,0:SOUND 8,0:SOUND 9,0:SOUND 10,0 

820 CGEN 1:POKE &HF915,3,90 

830 PALET6,6:PALET7,7:IF no=1 CLS 

840 CALL &HF900:CGEN 0:CONSOLE 

850 COLOR 5:LOCATE1,22:PRINTUSING"#####(";tlma; :PRINTMID$(STR$(no)d,2)5") “3 

860 LOCATE1,24:PRINTUSING"#####("°shs;:PRINTMID$(STR8$(hn),2)5") °3:COLOR 7 

870 IF demo pCyn)=100:CONSOLE:LOCATE!1,22:PRINT” DEMO °;:LOCATE1,24:PRINT" DEM 
O "3 

900 ” yaku print 

910 CONSOLE 3,16,1,8:PRINTos%$oS$ 0% 0% 0% 0% 0% 08 08 0% 08 OF OF OF OF 

920 FOR i=yn TO 1 STEP-1:CGEN1:PRINT o%y$C€id;:CGENO:PRINT RIGHT$("++++"+MIDS(STR 
$(pCid),2),5)3 :NEXT 

950 ” name print 

960 GOSUB 6010:GET@(111,132)-(€223,139),g,6:PUT@(113,132)-(€225,139),9g,0R,6 

970 ”’ 50 coins print 

990 GOSUB 5010:CGEN 1:PRINT o$o08%cl10$0%c10808c10%0%cC 108 0%c 10S 0% 0% Of OF OF 

1000 ” insert coin 

1010 coin=0:SOUND 0,31:SOUND 1,0:SOUND 7,&H3E:SOUND 8,16:SOUND 11,0:SOUND 12,15 
1020 IF demo KS=INKEY$(0) GOTO 1050 

1030 ”’ coin in loop 

1040 FOR i=1 TO 5000:k8="":kK%=INKEY$(0):IF k#="" NEXT:demo=1:CGEN O:GOTO 9960 
1050 IF K8%=CHR#$(13) AND coin GOTO 1210 

1060 IF K$=CHR$(11) GOTO 9810 

1100 ’ print coin 

1110 CONSOLE 13,11,15,15:SOUND 13,0 

1120 IF ma MOD 100 =O CLS:PRINT c508;c50$; 

1130 ma=ma-1:coin=coin+1:GOSUB 5010 

1140 LOCATE (ma MOD5)*3+15,22-ma MOD100 ¥10:IF ma¥5 ANDi PRINTc1$; ELSE PRINT cO 


1150 CONSOLE 13,4,30,3:PRINT coin#$;:PAUSE 1:PRINTo%:GOSUB 5110:PRINTo$%$:GOSUB 511 
O:PRINTo$:GOSUB 5110:PRINTo%:PALET coin,coin 

1160 IF coin=5 OR ma=O0O GOTO 1210 ELSE 1020 

1200 ” bar down 

1210 SOUND 6,31:SOUND 7,&H37:SOUND 8,16:SOUND 11,0:SOUND 12,7:SOUND 13,4 

1230 LINE( 296, 16)-(319,39),PSET,0,bf:LINE( 296, 40)-(€311,135),PSET,0,bf 

1240 POSITION 296,144:PATTERN -24,b4$% 

1250 SOUND 0,0:SOUND 1,5:SOUND 7,&H36:SOUND 12,5:SOUND 13,0 

1270 POSITION 296,144:PATTERN -24,b3$% 

1280 POSITION 296,40:PATTERN -96,b2$% 

1290 POSITION 296,16:PATTERN -24,b1$ 

1300 ’ roll start 

1320 SOUND 0,0:SOUND 1,15:SOUND 7,&H37:SOUND 12,2 

1330 IF demo POKE &HF915,47,0 ELSE POKE &HF915,0,2 

1340 CGEN 1:CALL &HF900 

1510 ’ 5 lines make 

1520 FOR i=O TO 2:FOR j=0O TO 2:r8Ci,j)=MID$C("‘abcdefghijklmn”,INSTRC("xsvyi 4 Fok 
£319" ,SCRN$(ix5+19, 5*3+4,1)9),1):NEXT:NEXT 

1580 1$¢€1)=r$C0, 1) 4+r$¢1,1)+r$02,1)9:18C2)=r8(0,0)4+r$¢01,0)4+r$(2,0):18C3)=r8C0,2)+r 
$01,2)+r802,2)9:18C04)=r8(0,0)4+r8C1,1)4r$°02,2):18¢5)=r8C0, 2). +r8C1,1)+r8(2,0) 

1630 ’ form change 

1640 FOR 1l=1 TO coin 

1650 1%=LEFT$(1$(1),1):m8=MID$(1$(1),2,1):r%=RIGHT$(1$(1),1) 

1660 p$COdJ=1EC1I:pSC1LI=ALS+m$+"-" :pHC2I=184+"°-"+r8 2 p$C3I=184+"--" :pBC4)="-"+mS4+r3ip 
$(5)=7=—"+m$4+"=-" 3 p$(6)="--" +r 

1730 FOR i=1 TO yn 

1740 IF psC(fCid =y$Ci)> yl=ix8+16:y2=y1+8:pay=pCid:i=yn ELSE 2100 

1800 ’ pay 

1810 SOUND 0,31:SOUND 1,0:SOUND 6,31:SOUND 7,&H37:SOUND 8,16:SOUND 11,0:SOUND 12 
23 
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7010 DATA 
7020 DATA 


b, 79,164,6,b,2,5,77,162,6 

b, 
7030 DATA b, 

b, 

b, 


a3»s 

»3,8,9,6,b,0,9,6,11,6,8,7,3,0,8,90,10,0 
1,3,73,9;6,b,73,9,79.11,65S,725350,8,79,10;0 

7040 DATA »156,6,158,6,b,6,158,8, 164,6,s,0,157,0,8,7,164,0 

7050 DATA 71,158,73, 164,6,b,73, 156,79, 158,6,8,72,164,0,8,79,157,0 

7060 DATA ?,8,13,7,9,PAY OFF,?,6,168,7,7,your total,?,5,184,7,7,high score 

7070 ” body 

7100 DATA b,90,0, 288, 145,7,b,93,2, 285, 143,7,b, 101,18, 277,127,7,b, 103, 20,275,125, 
65159352; 101s 19s 751593;.143, 101 51265 7515289,2,2775 195 751528551438, 277,12657 

7110 DATA b;91,161,287,197,7,b6,95,161,283,199,7 

7120 DATA b,90,145,288, 161,7,h,92,145, 286, 159, 3727172774757171,b,91, 144, 287,148, 
0,b,91,152,287,156,0 

7125 DATA b, 247,150,282, 160,6,w, 248, 151,281,159,0 

7130 DATA b,105,130,227,139,7 

7140 DATA 0,139,184,30,7,.5,90,180,0, 239, 184, 30,7, .5,0,90,1,139,169,239, 169,7 
7150 DATA 1,275,184, 103, 184,7,-,105,190,-,110,195,-,268, 195,-,273,190,1,275, 184, 
273519057 

7155 ” roll wimdow 

7160 DATA b,146,26,181,109,6,b, 149,31,178,104,6,b, 151,32,176,103,7,?7,162,113,7,7 
»1,6,159,111,170,121,6 

7170 DATA b,186,26,221,109,6,b,189,31,218,104,6,b,191,32,216,103,7,7,201,113,7,7 
»2eb0,199,111,210,121,6 

7180 DATA b,226, 26,261, 109,6,b, 229,31, 258, 104,6,b, 231,32, 256,103,7,2,241,113,7,7 
63,6, 239,111,250, 121,6 

7200.’ 5 lines 

7210 DATA ¥,266,67,3,6,1,¥,141,67,3,6,1,1,145,67,262,67,6,1,135,60,138,67,6,-,13 
5,74,b,110,60,134,74,6,7,112,64,6,7,18t,£,111,61,134,73,1+p,135,67.,1,6 

7220 DATA ¥,266,43,3,6,2,¥,141,43,3,6,2,1,145,43,262,43,6,1,133,42,138,43,6,-,13 
5,56,b,110,42,134,56,6,7,112,46,5,7, 2nd, £,111,43, 134,55, 2,p, 135,43,2,6 

7230 DATA ¥,266,91;3,6,3;¥%.141,91;3;653;1,145,91,262,91,6,1,135,78,138,91,6,=,13 
3,592.6; 110; 785.134,92;6, 7;112,82,4,7,35rG, fs 1101,793.134,91,330,135,9153,6 

7240 DATA ¥,266,103,3,6,4,¥,141,31,3,6,4,1,145,32,262, 102,6,1,135,24,138,31,6,-, 
135,38,b, 110,24, 134,38,6,7, 112,28,3,7,4th,f,111,25,134,37,4,p,135,31,4,6 

7250 DATA ¥,266,31,3,6.5;¥.141., 103,3,6,5,1.,.145, 102; 262,32,6;1, 135; 96, 138; 103,6;,- 
, 135,110, b, 110,96, 134, 110,6,?,112,100,2,7,5th, f,111,97; 134, 109,5,p, 135, 103,5,6 
7255 ” paint 

7260 DATA b, 240,127,264, 135,7,0,252,130,13,7,.5,20,160,1, 239, 127,235, 140,7,-,269 
»140,-,265, 127,b, 244,125, 260, 126,0,b,241,127,263,129,0 

7270 DATA t,100,10,0070007070007000,7,t, 100, 135,0070007070007000,7,t,100,170,006 
0006070007000,7,t,110,190,7070707007070707,7 

7280 DATA b,92,2,287,143,0,1,106,139,226,139,0 

L730 

7290 DATA 1,108,185,109,190,0,-,111,194,1,270,185, 269, 190,0,-,267,194,1,113,194, 
265,194,0,1,107, 186,108, 191,0,-,111,194,1,271,186,270,191,0,-,267,194 

7300 DATA b,288, 128,290, 183,7,b,290, 136, 307, 175,7,b, 290, 138,307,173,7,b,290,141, 
307, 170,7,6; 290, 146, 307, 165, 7,b, 290,152,307, 159:,7 

7305 ’bar 

7310 DATA 1,304,38,304,56,7,-,296,128,-,296,135 

7320 DATA 1,306,38,306,56,7,-,298, 128,-,298,135 

7330 DATA 1,307,38,307,56,7,-,299,128,-,299,135 

7340 DATA 1,310,38,310,56,7,-,302,128,-,302,135 

7345 ’ ball 

7350 DATA o,307,27,11,7,1,770,250 

7360 DATA 0,307,27,8,7,1,45,135 

7370 DATA 0,307,27,4,7,1,60,120 

7380 DATA 0o,307,27,3,7,1,60,120 

7390 DATA e 

7400 ’ ball down 

7410 DATA o,307,155,11,1,1,-70,290,p,307,155,0, 1 

7420 DATA o,307,155,8,7,1,45,135 

7430 DATA 0,307,155,4,7,1,60,120 

7440 DATA 0,307,155,3,7,1,60,120 

7490 DATA e 

7800 ”’ line data 

7810 DATA 67,67 

7820 DATA 43,43 

7830 DATA 91,91 

7840 DATA 32,102 

7850 DATA 102,32 

7999 ’Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn SHIFT+@* (SPACE) 

8000 ’ ist rolls 

8010 DATA bncdenhbcdnhbnd 

8020 DATA ebndcnhbndnbnchd 

8030 DATA bncdhbnencdnhbndn 

8040 DATA eee,1000,hhh,500,ccc, 300,ddd, 200, bbb, 100,nnn,10,bb-,5,b-b,5,-bb,5,d--, 
2,7G-,2,--da,2,e 

8045 DATA ?,114,132,6,12,Easy slot,e 

8050 ’ 2nd rolls 

8060 DATA fjcdegabmdngbe fnmjca 

8070 DATA abcfenmjedgabmdnf jcgj 

8080 DATA mbjdengbcjnf jcdgameaj f 

8090 DATA ggg,1000,gff,500,gfa,500,gaf,500,gfm,200,gam,200,gmm,100,mmm, 100, gf-,5 
0,ga-,50,9--,35°9-,35°"G53, M9", 2,-f-525--a525€ 

8095 DATA ?,120,132,6,14,X1 slot,e 

8100 ’ 3rd rolls 

8110 DATA kbcd‘n*ticdn‘nctnlb*tdjiecb 
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1820 CONSOLE 13,11,15,15 

1830 LINE(6,y1)-(¢73,y2),PSET,1, bf: LINEC145,11¢1))-¢€262,1r(1)),PSET,1 

1840 IF pay>99 GOTO 1910 

1845 IF pay<1 GOTO 2040 

1850 ’ clear 100-1 

1860 IF ma MOD 100 =0 CLS 

1870 LOCATE(ma MOD5)*3+15,22-ma MOD 100 ¥10:IF ma¥5 AND 1 PRINT c28; ELSE PRINT 


1880 PALET 1,0:SOUND 13,0:PALET 1,1:ma=ma+1:pay=pay-1:GOSUB 5010 

1890 IF pay>O GOTO 1860 ELSE 2040 

1900 ’ over 100 

1910 mr=ma MOD 10:ma=ma-mr:pay=paytmr:mr=pay MOD 10:pay=pay-mr 

1920 SOUND 1,1:SOUND 6,31:SOUND 7,&H3E:SOUND 8,16:SOUND 11,0:SOUND 12,5 

1930 ’ clear 100-2 

1940 IF ma MOD 100 =O CLS 

1950 IF pay=0 GOTO 2010 

1960 pay=pay-10:SOUND 0,s2((pay MOD 50 ¥5)+1):SOUND 13,0:GOSUB5010:GOSUB5110 
1970 LOCATE 15,22-ma MOD100 ¥10:PRINTc5$;:PALET 1,1:PRINT"";c108;3 

1980 SOUND 0,s2(pay MODS50O ¥5):SOUND 13,0:PALET 1,0 

1990 ma=mat10:GOSUB5010:GOSUB5110:GOTO 1940 

2000 ”’ under 10 

2010 IF mr LOCATE(ma MOD5)*3+15,22-ma MOD 100 ¥10:IF ma¥5 AND 1 PRINT c2%; ELSE 
PRINT c1#; ELSE 2040 

2020 mr=mr-1:ma=mati:GOSUB 5010:IF mr GOTO 2010 ELSE 2040 

2030 ” pay end 

2040 LINEC(6,y1)-(73,y2),PSET,0, bf :LINE(145,11¢1))-€262,1r(1)),PSET,6 

2100 NEXT: PALET 1,0:’ 1730 

2110 NEXT:’ 1640 

2120 IF ma>O AND ma¢200 GOTO 1010 

2130 IF demo no=no MOD 10:GOTO 560 

2140 tlma=tlmat+ma:CONSOLE:COLOR 5:LOCATE1,22:PRINTUSING"#####(°;tlmas :PRINTMID$ ¢ 
STR$(no),2);") °3:COLOR 7 

2r50 IF tlma>=hs hs=tlma:hn=no 

2160 COLOR 5:LOCATE1,24:PRINTUSING"#####(C"shs;:PRINTMIDS(STR$(€hn),2);") °3:COLOR 


2170 IF ma=<O GOTO 2230 
2180 IF no<10 GOTO 560 


2200 ’ win 

2210 p$="C ONGRATULATION! 1 RY AGAIN? ¢€Y/N) ":GOTO2 
310 

2220 ” game over 

2230 p$="G AME OVER TR Y AGAIN?C€ Y/N) . 


2300 ’ display 

2310 CGEN 0O:p=LEN(p$):p$%=p%+p%:PAUSE 5:CONSOLE22,2,15,18 

2315 ’IF demo GOTO 510 

2320 FOR K=1 TO 10:FOR i=1 TO p:LOCATE 15,22:PRINT MID#$(p$,i,17); 

2330 FOR j=1 TO 5:k#=INKEY$(0) 

2360 IF kK$="n" OR K$="N"” OR K8="3" GOTO 2410 

2370 IF k#="y" OR K#="Y" OR k#="y" GOTO 510 

2380 NEXT:NEXT:NEXT:demo=1:GOSUB9920:GOTO 510 

2400 ”’ game end 

2410 KEYO,"":LOCATE 15,22:PRINT "° 24YDL4VF° Y4. ";: CONSOLE: PRINTCHR$(11) 
2420 END 

5000 ”’ ? MA 

5010 CONSOLE:LOCATE31,19:COLOR 4:PRINT USING" ####°;ma;:COLOR 7:CONSOLE13,11,15,1 


5100 ” wait 

5110 FOR w=0 TO 5:NEXT: RETURN 

5200 ” get@ 

5210 bS="":a=&H4000+x1¥8 : b=&H4000+x2¥8 

5220 FOR i=a TO b:FOR j=yl TO y2:b$=b%+CHRS$CINPC1+&H800x(j AND 7)+¢€j AND 248)x5) 
): NEXT: NEXT 

5230 RETURN 

6000 ’ graphic loop 

6010 READ g%:ON INSTR(“1-bfcp¥?o0sthw”,g#) GOTO 6100,6110,6120,6130,6140,6150,616 
0,6170,6180,6190,6200,6210,6220 

6020 RETURN 

6100 READ x,y,u,v,w:LINE(x,y)-Cu,v),PSET,w :GOTO 6010 

6110 READ x,y:LINE-(x,y),PSET,w:GOTO 6010 

6120 READ x,y,u,v,w:LINECx,y)-Cu,v),PSET,w,B:GOTO 6010 

6130 READ x,y,u,v,w:LINE(x,y)-(Cu,v),XOR,w,BF:GOTO 6010 

6140 READ x,y,u,v:CIRCLE(Cx,y),u,v:GOTO 6010 

6150 READ x,y,u,v:PAINTCx,y),u,v:GOTO 6010 

6160 READ x,y,u,v,w:LINE(x-2, y-2)-(x+2, y+2),PSET,w,bf:CIRCLE(x,y),u,v:GOTO 6010 
6170 READ x,y,u,v,w%:COLOR u:FOR 1=1 TO LENCw$):POSITION x+ixv-v,y:PATTERN -8,LE 
FT$(CGPAT$ CASC(MID$(w$,i,1))),8):NEXT I:COLOR 7:GOTO 6010 

6180 READ x,y,s,t,ul!,v,w:CIRCLE(x,y),s,t,u!,v,w:GOTO 6010 

6190 READ x,y,w:PSET(x,y,w):GOTO 6010 

6200 READx,y,u%,w: t$="":FORi=OTOLEN(Cu$)¥8-1:b=0:r=0:g=0:e=1:FORj=1TO8:d=VAL(MID$ 
Cu$,ix8+j,1)):b=b+CC1ANDd)=1ANDe):r=r+((2ANDd)=2ANDe ) : g=g+(( 4ANDd)=4ANDe ) :e=ete: 
NEXT: t$=t$+CHR$ (b)+CHR$(r)+CHR$(g):NEXT: PAINT(x,y),t%,w:GOTO6010 

6210 READx,y,u,v,w$:t$="":FORi=OTOLEN(w$)¥8-1:b=O0:r=0:g=0:e=1:FORj=1TO8:d=VAL(MI 
D$(wS,ix8+j,1)):b=b+CC1ANDd)=1ANDe):r=r+((¢2ANDd) =2ANDe) : g=g+((4ANDd)=4ANDe) :e=et+ 
e : NEXT: t$=t$+CHR$ (b)+CHR$(r)+CHR$(g) : NEXT: LINE(Cx,y)-Cu,v),PSET,bf,t%:GOTO6010 
6220 READ x,y,u,v,w:LINE(x,y)-Cu,v),PSET,w,BF:GOTO 6010 

7000 ’” pay off 
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8120 DATA ‘nid‘nkbc‘nle‘djibcetn'becdj 

8130 DATA iecd*jln‘*jdnkbc‘n* icdn‘tbcdj 
8140 DATA kkk,1000,111,500,444j,200,i111,100,b1-,50,-b1,50,d1-,30,-dl,30,nl-,10,-n 
1,10, 1--,2,-i-,2,--i,2,e 

8145 DATA ?,114,132,6,12,Joke slot,e 

8150 ” 4th rolls 

8160 DATA ‘bgden‘andn‘ncd‘nbhdnaf‘dn*jcn 

8170 DATA nbnd‘n* fhdnabedn* jcdn‘ngdnab‘df 

8180 DATA ‘ncd‘naj ‘*dnabgdn‘tanfdn‘* fednab‘thn 

8190 DATA eee,1000,eeh,500,hhh,500,ccc, 400,cch, 200, bbb, 300, bbh, 150, ddd, 200,ddh, 1 
00,nnn,10,dd-,5,d-d,5,-dd,5,b--,2,-b-,2,--b,2,e 

8195 DATA ?,112,132,6,10,Normal slot,e 

8200 ’ 5th rolls 

8210 DATA ‘bcdefghijKlmn‘tha‘cdfab‘dna‘tgdne ‘cb 

8220 DATA a‘fdech‘g‘nab‘a‘cdefghi*jklmncdnab‘b 

8230 DATA ‘h‘dena‘bctefghi*jklmnab‘tdgf‘cdnabc‘m 

8240 DATA abc, 1234,bcd,567,cde,890,de-,12,ef-,34, fg-,56,gh-,78,hi-,90,--i,1,--j, 
2,°-K,3,--1,4,--m,5,€ 

8245 DATA ?,112,132,6,11,2772?7? slot,e 

8250 ’ 6th rolls 

8260 DATA gbcdenabldnabldn‘l ‘dnachlnab‘dn‘tlab‘dldn 

8270 DATA abldln‘bhlnabednalgdn‘lcdnabldnab‘cldcdnl 

8280 DATA ‘1 ‘dlnabcdn‘lgdnalednabldn‘tb‘dnaclbhd‘lnll 

8290 DATA 1--,0,-1-,0,--1,0,eee, 1000, g9g,700,ccc,500,hhh, 300, bbb, 100, ddd, 100,nnn 
»10,-bb,5,b-b,5,bb-,5,d--,2,-d-,2,--d,2,e 

8295 DATA ?,113,132,6,11,Ojama slot,e 

8300 ’ 7th rolls 

8310 DATA aecdenahcgnabld‘agcd‘aecfn ‘bcd ‘tahcb‘gcdfdna‘te 

8320 DATA abc ‘e ‘aec ‘nahcgd ‘abldn‘*hcd‘taecdnagce ‘cf ‘gnd‘tena 

8330 DATA ehcgenabcd‘aec' faegfcdtabcdnthldnab‘gc'cd'fnata 

8340 DATA bbb, 1000,ddd,1000,nnn,1000,bdn,100,bnd, 100,dbn, 100, dnb, 100,nbd, 100, ndb 
»100,bb-,5,b-b,5,-bb,5,d--,2,-d-,2,--d,;2,e 

8345 DATA ?,112,132,6,10,fruits slot,e 

8350 ” 8th rolls 

8360 DATA “hs *e* *b*d*a*** "sp sgs*tetnt** qt Fee tgteetgeetnepe ep 

8370 DATA “b* *e* *b* *£* *g*** *e*n* *h“*d* *b*@* © * *H* * Qt tat * tqs ta* 

8380 DATA *“*g**ntb**d**fet** htt Ftat**q@tettthttptgetececgepeceg 

8390 DATA eee, 1000,9g9g, 700, hhh, 500, ccc, 300, ddd, 100, bb-, 10, b-b, 10, -bb, 10,d--,5,-d 
-,5,--d,5,e 

8395 DATA ?,112,132,6,11,space slot,e 

8400 ” 9th rolls 

8410 DATA ab ‘dgnj *cdnfbcmnab ‘dnaehjnf *cdnjbcgmdhfndnmeaj ‘mcgcdth* 

8420 DATA jgcfdhnae ‘mnabcjnfghdnmbcdnj ‘hmnaec‘cd‘dn‘efjtbagmfcd*tgh 

8430 DATA mb ‘dena ‘cfdnjghdannj ‘dnj ‘cmna‘cjnfb‘ecd‘*andman ‘bf ‘c‘ fdgh* 

8440 DATA bbb,500,bbf, 1000, bba, 200, bbm, 200, bbj , 200, bff, 100, bfa,100,bfm, 100, bfj,1 
00,b-b,20,-bb,20,-b-,5,--b,5,e 

8445 DATA ?,113,132,6,11l,apple slot,e 

8450 ”’ 10th rolls 

8460 DATA ‘bhdgnajcfn‘*bkdnabl ‘naimdnabjdna‘cbmfedn‘ninatamfbkdathjabl * 
8470 DATA abKdh ‘abfdn * jc‘nabmdnabkK ‘naml fdnabei f ‘m‘nd‘anaj‘*bgi‘fab‘jdc‘a 
8480 DATA abldenabnmd ‘*abfdn ‘jl ‘nabhdnabf ‘naim‘bkdcfn‘nhi ‘aba‘kmjdtbgja‘ca 
8490 DATA eee, 1000,g9g9, 1000, gff,500,hhh,500,ccc, 400,cch, 300, jj j,200, bbb, 100, ddd, 
100,gfa,100,bbf,200,gfa,100,bb-,50,d--,2,-d-,2,--d,2,e 

8495 DATA ?,114,132,6,12,last slot,e 

9000 ’Key instruction 

9010 WIDTH 40:CLS:PRINT:PRINT 

9020 PRINTTAB(12)"KEY INSTRUCTION":PRINT 

9030 PRINTTAB(13)"roll stop key 

9040 PRINTTAB(14)"middle roll 

9050 PRINTTABC(6)"left roll— Jt e right roll 

9060 PRINTTAB( 15)" Yee ers 

9070 PRINTTABC(15)" 111120131 

9080 PRINTTAB( 15)" —4 4 

9090 PRINTTAB(24)" re 

9100 PRINTTAB(11)"bar down———HR |! 

9110 PRINTTAB(5)"(5 coins auto down) IEI 

9120 PRINTTAB(21)"° ro ITI 

9130 PRINTTABC(9)"insert coin 11.1 

9140 LOCATE22,14:PRINT#OCHR$(31) 

9150 PRINTTABC(7)"Cor other key) “~ “4"*;PRINT 

9160 PRINTTAB(7)"If you get over 200 coins, 

9170 PRINTTABC7)"you can play next machine. 

9180 PRINTTAB(9)"“Cup to 10th machine) 

9190 RETURN 

9300 ’define function key 

9310 KEY 1,"°CG.1:L.7999"+CHR$( 26,13) 

9320 KEY 2, "WIDTH40"+CHR$(13) 

9330 KEY 3, “KEY” 

9340 KEY 4,°"L.8000,8099"+CHR$( 26,13) 

9350 KEY 5,°G.500"+CHR$ (13) 

9360 KEY 6, "LOAD"+CHR$(13) 

9370 KEY 7,"WIDTH80"+CHR$(13) 

9380 KEY 8,"CHRS$(" 

9390 KEY 9,"PALET” 

9400 KEY10, "CONT"+CHR$(13) 

9410 RETURN 
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9800 ’ condition change 

9810 cys=PEEK(&H16) :cye=PEEK(&H17) :cxs=PEEK( &H1E) :cxe=PEEK(&H1F) : SCREEN 1,1,0:CO 

NSOLE:CLS:CGENO:CONSOLE 8,10,10,25 

9820 PRINT"1 game start” 

9830 PRINT"2 change machine” 

9840 PRINT"3 change money” 

9850 PRINT"4 change last pay off" 

9855 PRINT"5 change roll speed“ 

9860 PRINT"6 game —> demo” 

9870 PRINT"7 domo — game" 

9875 PRINT°S8 return to game” 

9880 PRINT“input 1 to 8 ?”:KEYO,"" 

9890 ks=INPUT$(1):kK=VALC(K$) 

9900 ON k GOTO 9910,9920,9930,9940, 9950, 9960,9970,9980:GOTO 9890 

9910 demo=0:SCREEN 0,0,0:GOTO 510 

9920 INPUT "machine number(1 to 10)"sno:IF no¢<i OR no>10 GOTO 9920 ELSE no=no-1: 
SCREEN 0,0,0:GOTO 560 

9930 INPUT “how much money (1 to 1000)"sma:IF ma¢1 OR ma>1000 GOTO 9930 ELSE GOS 
UB 9990:GOTO 1100 

9940 INPUT “last pay off (1 to 1000)"sp:IF p<i OR p>1000 GOTO 9940 ELSE pCyn)=p: 

SCREEN 0,0,0:CONSOLE:LOCATE 4,ynt+2:PRINT RIGHT$("*+++"+MID$(STRS$(p),2),5) :GOSUB 
9990:GOTO 1100 

9950 s=128:INPUT "roll speed (1 to 1000)"ss:IF s<¢1 OR s>1000 GOTO 9950 ELSE POKE 
&HF9DO,s AND 255,s¥256:GOSUB 9990:GOTO 1100 

9960 demo=1:SCREENO,0,0:CONSOLE:LOCATE 1,22:PRINT" DEMO “:LOCATE 1,24:PRINT” 
DEMO “;:pCyn)=100:LOCATE 4,yn+2:PRINT“+ + 100° :GOSUB 9990:GOTO 1100 

9970 demo=0:SCREENO,0,0:CONSOLE 22,3,0,10:CLS:GOSUB 9990:GOTO 1100 

9980 SCREENO,0,0:CONSOLE 22,3,0,10:CLS:GOSUB 9990:GOTO 1100 

9990 POKE &H16,cys,cye:POKE &H1E,cxs,cxe:SCREEN 0,0,0:CGEN 1:RETURN 


@UAKE VUYEBIOISL 


EAOO 20 10 08 00 00 00 00 00 22 EC20 FF FF FF FC F3 EF DF DF AS5 EE4O0 EO EO EO EO 
EAO8 20 10 08 00 00 00 00 00 2A EC28 80 80 82 80 80 80 80 CO 56 EE48 06 OB OD OF 
EA10 20 10 08 00 00 00 00 00 32 EC30 90 80 80 80 80 80 80 CO 6C EE50 00 00 00 00 
EA18 OO OO FF FF E7 FF FF 0O ES EC38 BF BF BF BF BF BF BF DF 3C BESS. OF DP Dr DE 
EA20 00 00 00 7E 42 7E 00 00 48 EC40 Ci EO £O FO F8 FC FF FF 8F EEGO. ‘00.00: 00 ‘00 
EA28 00 00 00 7E 66 7E 00 00 74 EC48 CO EO EO FO F8 FC FF FF 96 EE68 FF FF FF FF 
EA30 00 00 00 00 00 00 00 00 1A EC50 DF EF EF F7 FB FC FF FF ES EE70 FF FF FF FF 
EA38 00 00 00 00 00 00 00 00 22 EC58 FF FF FF FF FE FE FC FC 34 EE78 FF FF FF FF 
EA4O0 O08 6A E3 FF FF FF 7E 2C 26 EC60 FF FF FF FF FE FE FD FD 3£ EE80 00 00 00 00 
EA48 00 00 00 00 00 00 00 00 32 EC68 FF FF FF FF FE FE FD FD 46 EESs 00 00 CO 30 
EA5O 18 3C 3C 7E 7E E7 DB 66 EE EC70 F8 F8 F8 FO FO EO CO 80 44 EE90 00 00 CO 30 
EA58 18 3C 3C 7E 7E E7 DB 66 F6 EC78 FB FB FA F7 F6 El CF 98 89 EE98 40 00 40 00 
EA60 00 00 00 00 00 00 00 00 4A EC80 FB FB FA F7 F6 El CF 98 91 EEAO 6A ED FS ED 
EA68 40 20 70 F8 6C DE FD 68 C9 EC88 80 80 80 CO EO F8 FF FF 8A EEA8 6A ED FS ED 
EA70 42 27 17 OF 06 02 01 00 F2 EC90 A7 98 AO D8 E7 F8 FF FF 10 BEBO. $0 00. 00°00 
EA78 00 00 00 00 00 00 00 00 62 EC98 A7 98 AO D8 E7 F8 FF FF 18 EEBS EA FA F4 74 
EA8O B9 FE BA OC 18 38 38 38 A7 ECAO FF F7 E3 Ci 80 CO EO E2 28 EECO EA FA F4 74 
EA88 00 00 00 00 00 00 00 00 72 ECAS FF F7 EB DD BE D8 £7 EF BE EEC8 FF FF FF FF 
EA9O FF 81 81 99 99 81 81 FF AE ECBO FF F7 EB D5 AA DO EO E2 8E EEDO FF FF FF FF 
EA98 FF 81 81 99 99 81 81 FF B6 ECB8 C4 CO CO CO EO FO EO C4 IC EEDS FF FF FF FF 
EAAO FF 81 81 99 99 81 81 FF BE ECCO DF DF DF DF EF FO EF DF D5 EEEO FF FF 7F BF 
EAA8 00 00 DB 61 32 DA 00 00 DA ECC8 C4 CO CO CO EO FO EO C4 2C EEE8 F9 F9 39 B9 
EABO 00 OO DB 61 32 DA 00 00 E2 ECDO 88 80 80 80 CO EO FO FF 53 EEFO F9 F9 39 B9 
EAB8 00 00 00 00 00 00 00 00 Az ECD8 BF BF BF BF DF EF FO FF 7D EEF8 3F DB SF FF 
EACO OO FE FE OO 54 OO FE FE F6 ECEO 88 80 80 80 CO EO FO FF 63 EFOO O1 O1 O1 FF 
EAC8 00 FE FE 00 54 00 FE FE FE ECE8 FF FF FF FF FF FF FF FF CC Br OS’: Ob OU Ok Er 
EADO 00 FE FE 00 54 00 FE FE 06 ECFO FF FF FF FF FF FF FF FF D4 BEND) TE ee ae ee 
EAD8 00 00 00 00 00 00 00 00 C2 ECF8 FF FF FF FF FF FF FF FF OC 28 Brig: FF FF Or or 
BARO 06 16 30 5A 7B AD FF 7E 26 ED00 00 00 00 00 00 00 00 95 82 EF20 FF FF FF 3F 
EAE8 00 00 00 00 00 00 00 00 D2 EDO8 OO 7F 80 7F C1 7F FF FF BI EF28 01 09 O1 81 
EAFO 04 OA 11 22 44 88 50 20 57 ED1O OO 7F 80 7F C1! 7F FF FF B9 EF30 O01 O1 O1 O1 
EAF8 14 2A 51 BA 5D 8A 54 28 8E 72 ED18 00 00 00 Ol 20 04 AO 04 CE EF38 FD FD FD FO 
EBOO 14 2A 51 BA 5D 8A 54 28 97 ED20 BF DE D9 DF BB 67 FF FF 82 EF40 13 07 27 4F 
EBO8 3C 7E DB FF E7 7E 24 3C 4C ED28 BF DE D9 DF BB 67 FF FF 8A EFAS 03 07 07 OF 
EBi10 3C 7E DB FF E7 7E 24 3C 54 ED30 00 00 00 00 00 00 00 00 1D EFSO FB F7 F7 EF 
EB18 3C 7E DB FF £7 7E 24 3C_ SC ED38 CE 31 FF 7F Cl 7F 80 7F El EF58 FF FF FF FF 
EB20 3C FF E7 24 00 00 00 00 51 ED40 CE 31 FF 7F Ci 7F 80 7F £9 th ie Rly 8 Si i 8 
EB28 3C FF FF 3C 34 6C 7C 38 OD Ep48 FF FF FF FF FF FF FF FF 2D EF68 FF FF FF FF 
EB30 00 00 00 00 00 00 00 00 1B ED5O FF FF FF FF FF 00 00 FF 37 BETO TE AE fF PF 
EB38 OO 24 24 24 9A 81 C3 3C AI ED5S FF FF FF FF FF 0O OO FF 3F EF78 SF 9F SF AF 
aan ne - ty as rh + c3 3C 29 ED60 FF FF 42 80 3D 7E FF FF C6 rena SF 9F SF AF 

4 1 C3 3C B9 01 O01 O1 03 
EB50 00 3C 7E FF FF 62 3C 00 91 coats Ad it oc oe a ae ad pe - EF90 E5 19 05 1B 
EB58 00 00 38 00 00 00 00 00 7B ED78 OO AS FF FF FF FF FF FF 04 BESe ES 23-00, 20 
EB60 00 00 38 00 00 00 00 00 83 ED80 00 00 00 FF FF FF FF FF 68 EFAO FF iF 3F iF 
EB68 00 00 3C 42 42 42 3C 00 91 ED88 00 00 OO FF FF FF FF FF 70 EFAS FF 7F 3F IF 
EB70 00 0O 3C 42 42 42 3C 00 99 ED90 FF F3 E3 24 00 00 00 00 76 EFBO FF 7F BF 5F 
EB78 00 00 3C 42 42 42 3C OO Al ED9@ FF F3 E3 24 00 00 O1 08 87 EFB8 O01 O1 O1 Ol 
EB80 00 00 00 00 00 00 00 02 6D EDAO FF F3 E3 24 C3 AS C3 FF BO EFCO O1 O1 O1 O1 
EB88 00 00 O1 06 09 17 17 2F EO EDA8 00 00 00 00 10 00 00 00 AS ECS: 90 6D 92 2° 
EB90 00 00 O01 06 09 17 17 2F EB EDBO 00 00 00 00 00 00 00 00 9D EFDO OF 07 03 01 
EB98 04 08 00 00 01 02 04 00 96 EDB8 FF FF FF FF FF FF FF FF 9D EFDS8 OF 17 3B 70D 
EBAO 2F SE SE 59 SF 5F SE 5F 4A EDCO 04 00 00 00 09 00 10 FF C9 EFEO 6F 57 2B 55 
EBAS 2F SE SE 59 SF SF SE 5F 52 EDC8 00 00 00 00 00 00 10 FF C4 EFES FF FF FF FF 
EBBO 00 O08 OO 00 00 00 00 00 A3 EDDO FF FF FF FF FF EF 10 FF B6 EFFO FF FF FF FF 
EBB8 2D 2A 17 17 09 06 Ol 00 38 EDD8 FF C3 81 00 00 00 00 00 08 EFFS FF FF FF FF 
EBCO 2D 2A 17 17 09 06 O1 00 40 EDEO FF C3 BD 24 FD FE Ci 7E AA FOOO FF 87 84 80 
EBC8 FF FF FF FF FF FF OF FF 8B EDE8 FF C3 BD 24 FD FE Ci 7E B2 FOO’ FF 87 B4 B3 
EBDO FF FF FF FF FF 80 80 9F 55 EDFO 00 00 00 00 00 00 00 @O DD FO1O FF 87 84 80 
EBDS FF FF FF FF FF 80 80 9F 5D EDF8 FD 80 FF FE 00 FF 00 FF 5D ED FOI8 87 FF FF FF 
EBEO FF FF FE FC FD FE FF FF BC EEOO FD 80 FF FE 00 FF 00 FF 66 FO20 87 FF FF FF 
EBE8 9F 9F 9C 9C 9D 9C 9F 80 Al EEO8 00 00 00 00 00 00 00 FF FS5 FO28 87 FF FF FF 
EBFO 9F 9F 9C 9C 9D 9C 9F 8O AY EE10 18 3C 7E 3C 18 FF 00 FF 22 FO30 FF FF FF FF 
EBFS FC OB FA FF FF FF FF FF AF 55 EE18 18 3C 7E 3C 18 FF 0O FF 2A FO38 FF FF FF FF 
ECOO 80 80 80 FF FF FF FF FF 67 EE20 FF FF FE FC F8 70 20 00 8E FO40 FF FF FF FF 
ECO8 80 80 80 FF FF FF FF FF 6F EE28 FF FF FE FC F8 70 AO CO D6 FO48 FF FF CO DF 
EC1iO FF FF FF FC FO EO CO CO 45 EE30 FF FF FE FD F9 76 2B OD BE FOSO FF FF CO DF 
ECi8 FF FF FF FC Fi £2 C8 CO 58 EE38 00 00 00 00 00 00 10 20 56 FOS8 FF FF CO DF 
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FF FF DB F748 00 00 00 00 00 00 00 00 3F 
FF FF C3 F750 7E 81 7E 81 FF FF FF FF 41 
FF FF CB F758 OO OO OO 81 FF FF FF FF CC 
FF FF D3 F760 00 OO OO 81 FF FF FF FF D4 
6C F6é F9 F768 00 00 00 00 00 EO EO EO FF 
6C F6 O1 583 F770 OO OO OO OO OO FF FF FF 64 
6C F6 OA F778 00 00 00 00 OO FF FF FF 6C 
FF FF F5 F780 FF 3F IF 1F 1F-03 01 01 17 
FF FF FD F788 FF 3F IF IF 1F 03 O1 O1 IF 
FF FF 05 F790 FF 3F IF 1F 1F 03 O01 O1 27 
7F 3F CC F798 02 O05 OB 17 2F 5F BF 7F 84 
7F BF 54 F7AO O02 OS OB 17 2F 5F BF 7F 8C 
7F 3F DC F7A8 02 05 OB 17 2F 5F BF 7F 94 
01 00 AB F7BO FF FF FF FF FF FF FF FF 9F 
45 2A Fi F7B8 FF FF FF FF FF FF FF FF A7 
O01 0O BB F7CO FF FF FF FF FF FF FF FF AF 
7F FF D5 F7C8 FF FF 3F 9F CF A7 D7 A3 8B 
7F FF A7 F7D0 FF FF 3F 9F CF A7 D7 A3 93 
7F FF ES5 F708 FF FF 3F 9F CF A7 D7 A3 9B 
04 04 74 F7EO 53 23 03 23 43 A3 43 87 23 
FD FD 52 F7E8 53 23 03 23 43 A3 43 87 2B 
FD FD 5A F7FO 53 23 03 23 43 A3 43 87 33 
FF FF 6C F7F8 1F 3F BF 7F 7F FF FF FF 07 DS 
FF FF 74 F800 1F 3F BF 7F 7F FF FF FF 10 
FF FF 7C F808 iF 3F BF 7F 7F FF FF FF 18 
AO 40 OD F810 FF FF FF 3F 47 A9 45 OB 84 
AO 42 17 F818 FF FF FF 3F C7 F9 E5 1B OC 
AO 42 IF F820 FF FF FF 3F 07 O1 O01 03 60 
FC FF 27 F828 17 2F IF 3F 3F 3F 3F 3F CO 
FC FF 3E F830 B7 AF OF BF BF BF BF BF EB8 
FC FF 46 F838 07 OF IF 3F 3F 3F 3F 3F AO 
F7 ED 8B F840 7F 7F FF FF FF FF FF FF 30 
F7 ED 93 F848 7F 7F FF FF FF FF FF FF 38 
F7 ED 9B F850 7F 7F FF FF FF FF FF FF 40 
EF F3 4B F858 FF FF FF FF FF FF FF FF 48 
EF F3 53 F860 FF FF FF FF FF FF FF FF 50 
EF F3 5B F868 FF FF FF FF FF FF FF FF 58 
FF FF EO Bl F870 FF FF 7F OF 01 00 O1 OC 02 
FF FF E9 F878 FF FF 7F OF O1 00 Ol OC OA 
FF FF Fil F880 FF FF 7F OF 01 00 O1 OC 12 
A5 C8 D6 F888 60 00 00 O1 O1 OF 7F FF 6F 
A7 D8 07 F890 60 00 00 O1 O1 OF 7F FF 77 
80 CO AE F898 60 00 OO O1 O1 OF 7F FF 7F 
FO EO 9F F8AO FF FF FF FF FF 3F CF F7 98 
F7 EF D7 F8A8 FF FF FF FF FF 3F OF 87 70 
FO EO a9 F8BO FF FF FF FF FF 3F OF 87 78 
FF FF B9 F8B8 FB FB F9 FO FO F9 FB DB 4E 
FF FF F6 F8CO 03 03 O01 06 06 O1 03 03 D2 
FF FF C9 F8C8 03 03 O1 06 O06 O1 03 03 DA 
FF FF 45 F8DO0 37 CF 3F FF FF FF FF FF 08 
FF FF 4D F8D8 O07 OF 3F FF FF FF FF FF 20 
FF FF 55 F8EO O07 OF 3F FF FF FF FF FF 28 
80 30 81 F8E8 O00 00 00 00 00 04 04 04 EC 
80 30 Cl F8FO 00 00 00 00 00 FD FD FD ODF 
80 30 91 F8F8 00 00 00 00 00 FD FD FD £7 77 
FE FF 70 F900 3E 09 32 F8 FA AF 32 F6 3B 
FE FF 78 F908 FA 32 F7 FA 21 16 00 36 8B 
FE FF 80 F910 04 23 36 OC O1 00 02 C5 3A 
F3 EF 6E F918 11 00 FB 21 FO FA 3A F7 59 
FO E3 67 F920 FA 4F 06 03 5E 1A B7 20 BA 
FO E3 6F F928 04 36 00 18 F7 E5 DD El OD 
DF DF 25 F930 CS OE 42 D6 60 47 79 C6 FA 
CO CO B9 F938 30 4F 78 D6 05 30 F6 28 51 
CO CO Ci F940 F4 C6 O5 47 CB 27 80 B81 32 
FF FF 9D F948 DD 77 03 Cl CB 09 38 O1 66 
FF FF 94 F950 34 14 23 10 CF 06 03 C5 61 
FF FF 9C F958 21 1E OO 36 OE 21 F7 FA E6 
05 05 &EC F960 4E 21 F3 FA 06 03 3A IE 16 
35 35 84 F968 O00 C6 O05 32 1E 00 C6 02 44 
35 35 8C AA F970 32 1F 00 CB 09 C5 DC CD FC 
AO 40 77 F978 F9 38 28 E5 CD BF 06 CD OE 
AO 40 7F F980 10 06 El 7E FE 73 30 OD 9C 
AO 40 87 F988 3E 7F CD 13 00 CD 13 00 FE 
00 O01 8F F990 CD 13 00 18 OE CD CB 04 28 
00 01 3F F998 C6 10 CD C8 04 C6 10 CD A3 
00 O1 47 F9AO C8 04 35 23 C1 10 BF B7 04 
BF 7F 1B F9A8 3A F8 FA 3D CC CD F9 28 C4 
BF 7F A3 F9BO O03 32 F8 FA Ci 10 AO Ci 02 
BF 7F AB F9B8 OB 78 B1 28 OC 3A F6 FA 43 
FF FF B7 F9CO 32 F7 FA FE 07 C2 17 F9 B3 
FF FF BF F9C8 C9 CD OE FA C9 C5 P5 OL B3 
FF FF C7 F9DO 80 OO 30 03 O01 20 00 OB AB 
F7 E2 D9 F9D8 CD E2 F9 78 BI 20 F8 FI AB 
F7 E2 El F9EO C1 C9 E5 F5 CD 1D 03 21 4B 
F7 E2 £9 F9E8 F6 FA FE 31 20 07 CB 46 38 
C1 FF D6 F9FO CC OE FA CB C6 FE 32 20 QE 
Ci FF DE F9F8 07 CB 4E CC OE FA CB CE 7E 08 
Ci FF £6 FAOO FE 33 20 07 CB 56 CC OE 4D 
41 00 7E FAOS FA CB D6 Fil El C9 C5 FS F2 
C3 3C 88 FA1O O01 00 1C 3E OD ED 79 05 DD 
00 00 AC FAI8 AF ED 79 Fi C1 C9 FF OO Al 
00 00 9E FA2O FF OO FF OO FF OO FF 0O 16 
DF FF 4E FA28 FF OO FF OO FF OO FF 00 IE 
00 00 AE FA30 FF OO FF OO FF OO FF 00 26 
FF FF F5 FA38 FF OO FF OO FF 00 FF 00 2E 
FF FF F7 FA40 FF OO FF OO FF OO FF 00 36 
FF FF 05 FA48 FF OO FF OO FF OO FF 00 3E 
91 91 90 FA5O FF OO FF OO FF 00 FF 00 46 
91 91 OC FASS FF OO FF 00 FF 00 FF 00 4E 
91 91 AO FA6O FF OO FF OO FF OO FF 00 56 
18 0O 13 FA68 FF OO FF 0O FF OO FF 00 5E 
18 0O 1B DC FA70 FF OO FF OO FF OO FF 00 66 
18 00 24 FA78 FF OO FF OO FF OO FF 80 EE 
10 C3. OD FA8O0 16 00 21 BE FA 1E 14 CD 68 
10 C3 15 FA88 33 00 2! BE FA 1E 15 CD 8E 
10 C3. 1D FA9O 2B 00 21 BE FA 1E 16 CD 8F 
FF FF 10 FA98 2B 00 21 BE FA 1E 17 CD 98 
7E 81 9B FAAO 2B OO 14 3E 60 BA 20 DA 2B 
7E 81 A3 FAAS 21 00 EA 1E 15 CD 2B 00 D8 
FF FF 27 FABO 1E 16 CD 2B 00 1E 17 CD D8 
00 00 37 FAB8 2B 00 14 20 EE C9 00 00 C8 
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@UAK I VY IOIS 


5880 85 B 82 5298 @A 08 82 68 B65 65 65 B3 18 5 89 82 89 03 89 83 89 B3 AA 
5008 @9 81 @5 81 @5 85 85 85 7C 5298 88 85 87 89 87 B8 B7 BB 28 ea os 8D @5 @6 BD @5 84 G6 BC BD 
5010 @5 35 85 @5 83 89 B67 BB C2 52AQ0 09 @5 @2 BE BA B9 B84 B5 2C 5530 @4 @6 @D @5 86 BC 35 86 FE 
5018 @8 86 @B BB BB BC B2 BA AF 52A8 04 @6 BA 68 B1 B65 B7 BA 2D 5538 4A 4A 4A 4A GA 4A 4A 4A ODD 
5028 @A 68 87 BA BB B9 B5 83 AF 52B@ @8 20 6B @8 G1 86 89 B2 AF 554@ @B @9 @5 @5 @3 BB 38 BD FE 
5828 @B 3@ 89 83 BC BG G1 82 CE 52B8 @A BD 82 89 84 B2 89 83 3E 5548 @1 @5 @1 @1 87 B9 B1 B3 BI 
5030 BA 89 88 BB BB B7 BB B2 AA 52C@ 89 @5 @4 B2 B8 B5 @5 86 3E 555@ @A OC G6 BC B6 B8 B6 BE EF 
5@38 @C 86 89 B6 BA BA BB BA D2 52C8 BA @D 04 84 B@ @5 86 BA 4E 5558 BA BA @B 29 4 B4 35 B5 17 
5040 @8 35 @2 BA @B BA BE BA B86 5200 @C @1 86 B8 @3 BA BA BB SC 5568 04 @5 86 B8 B5 64 B2 BE ES 
5048 BA BA BE BE BE B9 B6 BA EF 5208 86 89 83 BA BC 81 B65 83 5B 5568 @C @1 @1 B7 40 4A 40 40 OC 
5e5@ 89 83 BC B63 BA BC BB B6 D7? 52E@ @8 B61 61 83 68 B61 B61 B2 AB 5570 68 @2 68 @4 @5 01 35 @5 18 
5058 GE 30 BA 88 86 BA 28 B2 2A 52E8 @D 64 @5 86 BE BC 86 BC 82 5578 @5 @1 87 @C B5 63 88 B3 FI 
5868 @8 @2 89 B63 B9 86 B9 B86 E4 52F@ 85 @4 @6 BC B65 B4 B65 B6 71 5580 89 @6 BC 35 865 @@ 35 87 66 
5068 @C 82 89 B6 BA B9 86 B9 F7 52F8 @C @6 BC 66 BE BE BC G6 YC 2E 5588 @A BA @A BD @1 84 35 B1 43 
5070 @5 35 @6 BC 83 B68 B63 BA 24 5300 09 @5 65 83 89 61 35 7 AF 5598 @7 BA BD G1 B1 86 BB B6 19 
5078 @E 68 86 BA B8 B5 BB B3 FE 5308 89 @3 @0 @5 65-81 81 83 83 5598 @C @5 81 35 83 BC 35 83 7B 
5880 89 86 @8 85 @2 BC B1 B6 @1 5318 @B 89 61 61 65 83 89 B63 8D S5AQ BA BA @8 B3 BC 20 38 B8 78 
5088 @D 35 @5 63 88 86 BE BA 48 5318 @E @D @1 04 86 BC 35 B85 D7? 55A8 @1 @2 BD @2 B8 18 BA BB 3C 
5098 @9 88 @7 BC B4 18 B68 B2 1A 532@ 06 @C 83 @D B63 BC 86 BC Bé 55B@ 69 @3 BA 30 BE 20 35 B2 BB 
5098 @8 81 86 BB BC 83 B88 B7 28 5328 @4 @6 BE BE BB BA BA BA CA S5B8 @A BC B2 BC @5 B5 35 B82 72 
5@AQ 89 35 87 BA B8 83 B9 B2 55 5330 09 865 86 @N G1 B1 35 BS EB 55C@ @A BE @9 @2 BC B5 B2 BA 55 
5@A8 BE BC @5 85 85 @5 B86 BE 3A 5338 @5 83 @C @3 68 B65 Bi G1 Bi 55C8 @C @@ 84 35 B1 B83 38 BA AB 
5@B@ BA BA BD BB 87 BB 86 B9 = 3F 5348 @1 63 6B 2@ 88 82 BA BA DB 5508 GA @B GA @B GB BB 38 BE AB 
5@B8 @4 35 85 04 86 BC B6 BE 78 5348 @C 61 61 B61 86 BC 35 B7 FB 5508 @8 @7 BA BA B9 B1 B4 B2 68 
5e@c@ @9 @1 @7 BD 35 @5 B61 87 78 5350 69 B4 B1 08 84 B7 BC B6 CE 55£@ 9 @4 87 38 4A 4A OBB BA 22 
5@C8 BE 88 B85 BB @7 BA B9 B2 AF 5358 @C @2 88 87 BE BC B2 BA EE S55E8 @C 04 04 84 64 B64 35 BS 97 
5000 @9 87 @9 B3 BD G1 81 63 4E 5368 69 06 BE BA BD 81 35 B5 22 55F@ @6 @D @4 B6 BE BC B5 86 87 
5808 @A BA 28 BB 30 B9 B4 B63 A? 5368 04 @3 BE BC B65 Bi Bi B1 E4 55F8 @C @5 85 35 86 BC B84 B6 BA SA 
5@E@ @B BA BD BG B7 BC B2 BE 75 5378 61 68 62 89 61 63 BE BA EB 560@ 69 @5 81 @5 @5 81 83 B9 7C 
5@E8 ®@C 81 B66 BC B5 B6 BC B2 7B 5378 @A @B 89 84 63 88 35 B87 34 5688 @5 @5 @3 89 83 BB 38 B89 BB 
S@F@ GE BC BB GB 35 B2 BB BA AG 538@ @D @2 89 65 B67 B68 B6 BC 11 5618 87 69 03 BB 6B B9 B1 63 9C 
5@F8 8 @6 BD B@ 87 BD 84 B7 82 57 5388 86 @C @6 BC 86 BA BF B6 1E 5618 @8 83 20 BD @3 BA OBC 82 Ci 
5106 89 @@ 83 89 63 AB AD 62 83 5398 @C 64 84 @7 68 B6 3@ 89 45 5628 @9 63 BA BC BB B4 35 82 D3 
5108 @9 801 84 B62 30 BA BC B6 BS 5398 @3 @C 86 BD B63 BC B65 Bi 22 5628 89 86 @8 B6 B8 86 BA BE C1 
5110 @C @1 @1 @2 89 63 89 B63 89 53A@ 01 61 01 61 B61 86 BB B? BD 5638 @C 86 BB B9 BB B6 B89 B2 BD 
5118 @A BA BA BC B2 BB 18 BA B7 53A8 @B 89 83 89 86 9 35 B6 65 5638 @C 04 86 @D B@ 87 30 BE F6 
5128 @C 06 89 84 35 86 89 83 D7? 5388 @C @5 @5 @5 64 B65 B65 B86 32 5640 @C 865 04 @5 86 20 B68 B3 E1 
5128 @D @2 @C 8@ 86 BC B2 BA B2 53B8 @E BE BE BE BC B5 84 B7 SF 5648 @9 @3 BC 82 BC B7 BE BE E7 
5138 @A OC @2 BD BB BB B7 BA B? 53C@ @A 88 86 BC B1 66 38 BB 79 565@ @D @5 @1 @5 64 65 35 B65 @1 
5138 @9 @5 86 89 35 83 868 86 EC 53C8 @9 @5 81 65 61 81 35 B87 6D 5658 03 @B 89 @5 @3 BC 86 BA ED 
5140 @9 @4 @7 BA B9 B5 B2 BE CD 5308 069 61 @7 89 65 B61 B65 83 4B 5660 08 @6 89 86 @B BB BB BB FF 
5148 @8 07 @8 @5 82 BE 89 B6 DA 5308 @8 @6 @D 01 04 87 30 BA S8C 5668 @B @9 62 @B BB BB 38 BB 38 
515@ @8 @5 @3 BA 30 68 88 83 F6 53E@ @BA 89 BB @3 BA BE 38 B89 YA 5678 @A 68 @2 BD BB Bi B1 B6 EF 
5158 68 @5 83 BE BA 28 84 B63 FB 53E8 082 08 85 @2 89 BB B7 BE 6A 5678 @C 81 82 89 BB BB BB BB E6 
5168 @A @9 86 @B BC G1 B4 A? ED 53F@ @8 @7 10 868 @5 @1 35 82 A? 5688 @@ @@ 88 88 BB BB 35 B2 BD 
5168 GE 89 88 84 35 06 BE BA 27 53F8 @E BA 28 BA 88 B7 38 BA D6 4F 5688 08 @2 @C @5 86 BA BC B3 18 
5178 @BA @9 84 61 B62 BD G3 BA FS 5400 @C @6 @B BE BC BB G1 B7 93 5698 @D @2 BC 62 BE BE BE BE 3B 
5178 @6C @@ @5 @@ G1 84 Bi B7 E7 5488 BA 89 88 86 B9 82 30 BA BA 5698 @E @C 82 BE BE BE 38 BE 72 
5180 @9 86 88 63 3@ GB 18 82 38 541@ 89 @2 89 86 68 63 30 BA C3 56A8 BA @C B1 83 B9 B2 BB BA 38 
5188 4A 4A 4@ 4A 4A 48 4A 4A 15 5418 09 @5 862 89 85 82 BC 83 9B 56A8 89 @2 BD @4 87 B9 B85 B7 36 
5198 4@ 4A 40 4A 4A 46 4A 48 09 542@ @A BA @C 83 BC 86 30 BA E3 56B@ @D @5 64 @5 @5 65 35 85 65 
5198 @A @9 86 BA 36 B8 81 B6 4B 5428 8 88 @2 89 82 BC 35 B86 DB 56B8 @6 @D 04 86 BC 86 BC B6 4F 
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6668 
6678 
6678 
6688 
6688 
6698 
6698 
66A8 
66A8 
66B8 
66B8 
66C8 
66C8 
6608 
66D8 
66E@ 
66E8 
66F@ 
66F8 
6788 
6788 
6718 
6718 
6728 
6728 
6738 
6738 
6748 
6748 
6758 
6758 
6768 
6768 
6778 
6778 
6788 
6788 
6798 
6798 
67AG 
67A8 
67B8 
67B8 
67C@ 
67C8 
67D@ 
67D8 
67E@ 
67E8 
67F@ 
67F8 
6888 
6868 
6818 
6818 
6828 
6828 
6838 
6838 


45 


83 


33 


9B 


6840 
6848 
6850 
6858 
6868 
6868 
6870 
6878 
6880 
6888 
6890 
6898 
68A0 
68A8 
68B@ 
68B8 
68C@ 
68C8 
6808 
6808 
68E@ 
68E8 
68F@ 
68F8 
6908 
6908 
6918 
6918 
6920 
6928 
6938 
6938 
6948 
6948 
6950 
6958 
6968 
6968 
6978 
6978 
6988 
6988 
6998 
6998 
69AG 
69A8 
69B@ 
6988 
69C@ 
69C8 
6900 
69D8 
69E@ 
69E8 
69F@ 
69F8 
6AG@ 
6A88 
6A10 
6A18 
6A20 
6A28 
6A30 
6A38 
6A4@ 
6A48 
6A5@ 
6A58 
6A6B 
6A68 
6A70 
6A78 
6A8@ 
6A88 
6A98 
6A98 
6AAG 
6AAS 
6ABG 
6AB8 
6ACO 
6AC8 
6AD@ 
6AD8 
6AEQ 
6AES 
6AFO 
6AF8 
6Be@ 
6Be8 
6B1@ 
6B18 
6B20 
6B28 
6B30 
6B38 
6B40 
6B48 
6B5@ 
6858 
6B60 
6B68 
6B70 
6B78 
6B8@ 
6B88 


99 


5B 


E8 


6B9@ 61 46 4E @7 B62 48 4C @7 34 6D18@ @2 3C 68 
6B98 62 4C 4D 87 @3 37 4D 87? 33 6018 62 6@ 5E 
6BA8 @3 49 4D @7 01 3C 46 86 34 6D28 62 28 20 
6BA8 62 30 46 86 B2 34 44 B6 i1 6D28 62 10 38 
6BB@ 62 3C 46 B66 81 44 46 86 36 6D38 02 18 36 
6BB8 62 5B 46 86 B2 AC 44 86 59 6D38 62 30 42 
6BC@ @2 44 46 66 @1 14 6E 61 41 6048 @2 62 IE 
6BC8 62 3C 6E B81 O62 30 6C B1 7F 6D48 @2 72 30 
6BD@ 62 30 6E 81 61 2C 6E B1 78 6D58 @2 6A 34 
6BD8 62 28 6B 81 @2 24 6E B1 6F 6058 @2 68 38 
6BE@ 61 20 6E B61 @2 28 6B B1 69 6068 @2 2C iE 
6BE8 02 14 6E 81 61 34 6D B81 7B 6D68 01 38 1C 
6BF@ @2 34 6A B1 @2 30 6A B61 99 6078 @2 34 1C 
6BF8 @2 3@ 68 81 @2 SC 68 B61 C5 E6 6078 @3 32 1D 
6C@@ 62 6C 68 B1 B62 6C 5B B1 FA 6088 @3 64 28 
6C@8 62 64 4C B61 B62 68 3C B1 C6 6088 @3 64 5A 
6Ci@ 62 68 28 @1 62 5@ 18 B81 72 6098 @3 28 6D 
6Ci8 62 5@ 18 61 @2 48 @C Bi 3E 6098 @3 4E 6D 
6C280 62 34 OC @1 B62 36 BE B1 16 6DA8 83 62 6D 
6C28 @2 32 16 B1 B62 2A 1A B1 26 6DA8 @3 3C 14 
6C3@ @2 2A 1C 801 B62 34 1C B81 38 6DB@ @3 5@ 28 
6C38 62 480 16 B61 B62 3A 1E 81 58 6DB8 63 58 46 
6C48 62 30 1E 61 O62 32 20 B81 52 6DC@ 63 5@ 5A 
6C48 62 3C 20 61 B62 48 16 Bi 74 60C8 @1 34 @B 
6C5@ 62 5@ 1A @1 62 58 30 Bi B4 6DD8 @2 3A BB 
6C58 62 54 3C 81 @2 68 54 B1 BE 6D08 @2 58 64 
6C66 62 68 SE B1 B82 58 68 B1 5B 6DE8 @3 36 BA 
6C68 61 42 1B @1 862 46 10D B1 99 6DE8 61 44 18 
6C7@ 62 48 380 81 82 3C 3C @1 D2 6DF@ 62 48 @D 
6C78 62 14 58 01 82 14 68 B@1 C2 6DF8 61 88 8B 
6C8@ 62 1C 64 61 @2 1C 6C Bi FA 6E8@ 62 28 68 
6C88 61 48 38 81 82 480 3C B81 ED 6EB8 81 88 BB 
6C9@ 82 40 54 B61 @2 30 68 B1 2E 6E18 62 68 68 
6C98 61 5@ 68 @1 B82 AC 6C Bi 79 6E18 81 28 68 
6CAB 61 56 6E B61 B82 5@ 6B B1 BA 6E20 @2 1C 68 
6CA8 62 44 6E @1 O62 6C 6E B81 AG 6E28 @2 SC 68 
6CB@ 62 6@ 6B 81 @2 66 6E B81 BB 6E38 61 26 28 
6CB8 61 5C 6E @1 82 58 6B B1 Bé6 6E38 61 28 20 
6CC@ 62 54 6E B1 B1 64 64 B1 BB 6E4@ 61 SC 26 
6CC8 62 64 6C @1 @1 48 380 B1 81 6E48 61 24 68 
6CD@ @2 AC 32 @1 862 54 32 B61 46 6—5@ @2 28 iE 
6CD8 62 58 38 61 81 48 3C 81 AD 6E58 @1 58 68 
6CE@ 62 44 3E @1 82 50 3E B61 62 6E68 @2 SC iE 
6CE8 62 54 3C 81 01 40 48 B1 71 6E68 01 28 28 
6CF@ 6? 44 4A B1 62 56 4A Bi 96 6E7@ @1 28 2A 
6CF8 62 SA 48 81 61 40 54 81 OF 41 6E78 81 28 32 
60808 @62 44 56 B61 62 SC 56 Bi BF 6E88 61 28 34 
6088 62 68 54 @1 61 38 SE 81 C4 

@VUAKeE BASICIOIFZA 
26 ' EEE 

36 ' KNIGHT OF LABYRINTH 

46 ' a 

58 ° by S.Asano 


68 CLEAR, &H4FFF: DEFINTA-Z: RANDOMIZETIME/4 : POKE8&H52 
EC,14 | 

78 GOSUBI618 

86 DIMTRC(47):DEF FNC(X,Y)=X-(X-Y)*(INT(X/Y) ) DEF 
FNB(X,Y)=(X MOD 2*(Y#1))¥(2*Y) 

98 GOSUB4008 

288 FORC=8T024: PRINT: FORD=6T0158: NEXT: NEXT: WIDTH8@ 
,25:1$=INKEY$ 

218 SYMBOL(48,18),“KNIGHT OF LABYRINTH",2,2,2 

228 SYMBOL(46,17),"KNIGHT OF LABYRINTH",2,2,6 

238 LOCATE3,6:COLOR7:PRINT"LOAD GAME ? (Y/N)" 

248 I$=INKEY$: IFI$="Y"ORI$="y"THENLOADM: GOTO6@P 
258 IFI$="N"ORI$="n"THEN26B8ELSE246 

268 PRINT 

278 FORA=1T05:C=(((A/2)-INT(A/2) )*2)*5+2 

288 LOCATE3,8:COLORC: PRINT" ‘ 
298 FORT=1T0200:NEXT:LOCATE3,8:PRINT"MAKING YOUR C 
HARACTER" 

308 FORT=1T0888:NEXT 
316 NEXT: PRINT 

328 PRINT" INPUT YOUR 
ges 
338 
346 
70 
358 
368 
378 
388 
398 
400 
418 
426 
430 
448 
458 
468 
478 
488 
498 
5008 
518 
528 


NAME (8 LETTERS) : "3 :CNAME 
FORC=6TO7 


I$=INKEY$: [FI $=""“THEN348ELSEI FI $=CHR$(13)THEN3 


PRINTI$; : CNAME$=CNAME$+1$ 

NEXT: [$=INKEY$ 

PRINT” ..<.OK7€Y/N)" 

I $=INKEY$: IFI$="Y"ORI $="y"THEN4086 
IFI$="N"ORI$="“n"THEN268ELSE380 
PRINT: PRINT" ";CNAME$;"'S ASPECTS: " 
GLD=INTCRND(1 )*58)+76: SGLD=GLD 
EDR=INTCRNDC1 )¥#38)+36 

STG= INT CRND(1 )*38)+38 
FIG=INTCRND(1L)*38)+38:SFIG=FIG 
MVE=INTCRND(1)*38)+30: SMVE=MVE 
HGP=8&H5A86+INTCRND( 1) *384) 

PRINT" GOLD: “;GLD 

PRINT" ENDURANCE: ";EDR 

PRINT" STRENGTH: "; STG 

PRINT" FIGHT: "3FIG 

PRINT" MOVE: ";MVE 


PRINT:PRINT" HIT ANY KEY !!" 


SIFM-7°*7 Th ADT SEVVA"IJOTSLUIAKR (HR2020K—Y) 


5C 60 @1 OB 6E88 61 28 3C 87 82 58 3C OB? FF 
3@ 42 @1 BA 6E9@ 61 28 3E @7 82 58 3E B7 6B 
18 26 61 @B 6E98 @1 28 46 @7 82 58 46 B7 23 
18 38 81 23 6EAB G1 28 48 87 82 58 48 B7 2F 
1C 32 01 3F 6EAS 61 28 50 87 82 58 58 7 A7 
SE 26 @1 AG 6EB@ 61 28 52 87 82 58 52 87 53 
6A 1£ @1 BB 6EB8 61 28 5A @7 82 58 5A B7 6B 
6A 30 @1 F7 6EC@ 61 28 5C @7 62 58 5C B7 77 
66 38 61 F7 6EC8 61 28 64 87 82 58 64 B7 OF 
2A 1C @1 AB 6ED@ 81 28 66 87 B82 58 66 B7 9B 
2E 1€ 01. «67 6ED8 61 88 88 B7 B2 20 68 B7 57 
32 41E Ol. 76 6EE@ O62 28 26 87 B2 BG BB B7 AB 
2C 1D @7 83 6EE8 81 8@ 8B B7 B2 68 68 B7 27 
1£ 28 @8 8F 6EF@ G2 68 20 B7 82 8G BB B7 70 
28 50 @8 67 6EF8 61 28 20 @7 02 24 20 B7 FB 58 
1E 60 67 53 6F@@ @2 1C 18 @7 82 64 18 B7 31 
31 6D @7 44 6F@8B 82 SC 26 @7 B2 6@ 20 B7 85 
58 6D @7 99 6F1@ @1 28 68 @7 G2 24 68 B7 94 
5A 6A 68 BS 6F18 61 28 68 87 82 58 68 87 DB 
38 1C @2 C9 6F20 @1 5C 68 @7 B2 6@ 68 B7 1C 
5@ 37 86 2E 6F28 61 24 18 87 @2 24 62 B7 6A 
5@ 58 66 6D 6F3@ 62 28 62 87 62 28 18 7 7B 
5@ 64 66 9D 6F38 61 58 18 87 @2 58 62 B7 E2 
38 84 87 B9 6F4@ @2 5C 62 @7 B2 5C 18 B7 F3 
42 @B @7 EB 6F48 61 28 58 87 82 58 58 B7 FB 
48 @B @7 FE 6F5@ 61 28 56 @7 @2 58 56 B7 FC 
48 BA 87? F3 6F58 @1 28 4E @7 82 58 4E B7 FA 
44 BE 86 BA 6F68 @1 28 4C @7 @2 58 4C 7 FB 
44 10 86 16 6F68 @1 28 44 O7 @2 58 44 B7 FO 
28 28 87 B6 92 6F7@ @1 28 42 87 B2 58 42 B7 FA 
G8 88 87 88 6F78 @1 28 3A @7 @2 58 3A B7 EC 
68 28 67 87 6F8Q @1 28 38 @7 @2 58 38 e7 FB 
86 88 87 58 6F88 61 28 30 87 82 58 30 B7 EB 
24 68 67 9B 6F9@ 61 28 2E 87 62 58 2E B7 EC 
64 68 67 FB 6F98 @1 28 26 B67 B82 58 26 B7 E4 
68 68 87 24 6FAG 81 28 24 @7 @2 58 24 B7 EB 
24 28 87 33 6FABS 81 28 1C 67 62 58 1C B7 EB 
38°20:07 77 6FBQ @1 28 1A @7 B62 58 1A B7 EA 
68 28 67 BB 6FBS8 88 88 BB BB BB BB BB BB 27 
24 1£ @?7 95 6FCO 68 BB BE BB BB BB BB BB 2F 
28 68 67 AG 6FC8 68 88 BB BB BB BB BB BB 37 
58 1E 6? 6D 6FD@ 68 68 BB BB BB BB BA BB 3F 
SC 68 @7? iE 6FD8 88 88 BB BB BB BG BG BB A7 
58 28 87 B7 6FE@ 88 BB BG BB BB BB BB BA AF 
58 2A @7 C3 6FE8 88 88 BB BB BB BB BB BB 57 
58 32 67 DB 6FF@ 68 BB BB BB BB BG BG Be SF 
58 34 @7 E7 6FF8 88 88 BB BB BB BB BG BB 67 1B 


538 1$=INKEY$: IF1$=""THEN536 

54@ FME=6:STA=8:PST=6!1.B=0: FORC=6TO7:CRY(C)=@: NEXT 
>GOTO2008 

688 CNAME$="": FORC28TO7 : CNAME$=CNAME$+CHR$( PEEK ( &H 
7800+C)):NEXT 

618 FME=PEEK (&H7868 )*256+PEEK ( &8H7869 ) 

628 GLD=PEEK (&H788A)*256+PEEK ( &H786B) 

630 EDR=PEEK(&H780C) :STG=PEEK (&H7 84D) 

648 FIG=PEEK(8H786E) :MVE=PEEK (&H786F ) 

658 STA=PEEK(8H7816) 

6686 PST=PEEK(8&H781 1 )*256+PEEK(8&H781 2) 

678 DIR=PEEK(8&H7813) 

686 FORC=8TO7: CRY (C)=PEEK (8&H7814+C) : NEXT 

698 SGLD=PEEK (&8H781C):SFIG=PEEK (8&H781D) : SMVE=PEEK ( 
&H781E) 

766 TRP=PEEK(8&H781F) : FORT=6T047: TRC(T) =PEEK ( &H782” 
+T) > NEXT 

718 HGP=PEEK (&H785@ )#256+PEEK (&H7851 ) : SFME=PEEK ( 8H 
7852 )*256+PEEK ( &H7853) 

720 I[FPST>=8&H5006 THENI.B=1ELSELB=@ 

738 GOTO2868 

748 SOUND? ,55:SOUND6,SN: SOUND8, SV: IFSV=16THENSOUND 
11,8@:SOUND12,SL:SOUND13,6 


758 RETURN 

766 FORW=8TOSS*168: BEEP! : BEEP@: FORWW=8@TOSL: NEXT: NE 
XT: RETURN 

9980 EN 

18160 ° 

18620 TITLE PROGRAM 

18030 ' Ss 

18646 WIDTH4@,25:CONSOLE®#,25,8,0:COLOR7 

1658 SYMBOL(96,18),"KNIGHT OF LABYRINTH",3,2,2 
1868 SYMBOL.(94,17),"KNIGHT OF LABYRINTH",3,2,6 
186780 FORAD=8H61D8 TO&H6337 STEP4 

1886 G=PEEK(AD) : X=PEEK(AD+1):Y=PEEK(AD+2):C=PEEK(A 
D+3) 

1098 I[FG=1THENLINE(48+X,48+Y)-(48+X,48+Y),PSET,C 
1188 IFG=2THENLINE-(48+X,48+Y),PSET,C 

1118 TFG=32THENPAINT (48+X,48+Y),C, PT 

1120 NEXT 

13286 LOCATEI5,7:PRINT"A FANTASY “:COLOR2:1LOCATEI5, 


9:PRINT“ROLE PLAYING GAME" 

13386 COLOR7:LOCATE1I5,11:PRINT"“OF" 

13486 COLOR7:LOCATEI5,13:PRINT"THE QUEST FOR" 
135@ COLOR6:LOCATEI5,15:PRINT"SACRED GRAIL. !!" 
1368 COLOR7:LOCATEI5,17:PRINT"GOD BLESS YOU." 
1986 I$=INKEY$: [FI $=""THENI986 


LISTLOG 263 


BIFM-7°t 1h AZT SEVUYA"IOTILUIAK MR22N—-Y) 


1998 RETURN 

2088 FORC=8T024: PRINT 

2016 FORT=@TO1 58: NEXT: NEXT 

2048 LINE(148,8)-(488,29),PSET,7,BF 

2042 LINE(148,8)-(487,29),PSET,1,B 

2044 LINE(141,8)-(488,29),PSET,1,B 

2058 SYMBOL(164,12),"KNIGHT OF LABYRINTH",2,2,2 
2068 SYMBOL(162,11),"KNIGHT OF LABYRINTH",2,2,6 
2098 LINE(239,48)-(368,169),PSET,7,B 

2106 CONNECT (275,39)-(275,32)-(224,32)-(224,175)-( 
383,175)-(383,32)-(328,32)-(328,39),7,PSET 

2118 PAINT(29%8,184),1,7 

212@ GOSUB2506: IFLB=@8THEN386@8ELSE5688 

2508 L$="":FORL=11T015:L$=L$+CHR$ (PEEK ( &8HSE8B+16%*S 
TA+L) ) : NEXT : CNAM$=L$+CNAME$ 

2518 ST$="":FORL=8TO7 : ST$=ST$+CHR$( PEEK ( &8HSEBO+ 16% 
STA+L) ): NEXT 

2528 COLOR7:LOCATE49,4:PRINT"NAME: ";CNAM$ 

253@ LOCATE49,5:PRINT"STATUS: ";ST$ 

2532 FME=FNC(FME, 30068) :GLD=FNC(GLD, 36088) 

2534 EDR=FNC(EDR, 260) :STG=FNC(STG, 268) 

2536 FIG=FNC(FIG, 2608) :MVE=FNC (MVE, 208) 

2538 FRT=PEEK( &H5E@0+STA*16+10) 

2548 LOCATE4S,6:PRINT"FAME: "; FME 

2558 COLOR6:LOCATE49,7:PRINT"GOLD: ";GLD 

2568 COLOR2:LOCATE49, 8:PRINT"“ ENDURANCE: ";EDR 

2578 LOCATE49,9:PRINT"STRENGTH: ";STG 

2588 LOCATE49,18:PRINT"FIGHT: ";FIG 

2598 LOCATE49,11:PRINT“MOVE:";MVE 

2608 COLOR7:LOCATE49,13:PRINT"CARRY ING( WEIGHT): " 
2618 FORN2@TO7: IFCRY(N)=@THENLOCATE48, 14+N:PRINTSP 
ACE$( 28) : GOTO2688 

2628 LOCATE48,14+#N:PRINTN#1;5")"5 

2638 C$="":FORC=8TO9 

2648 C$=C$+CHR$( PEEK (&HSFOB+ (CRY(N)-1)#16+C)) 

26580 NEXT 

2668 IFCRY(N) >7THENC$=C$+" SWORD"ELSEC$=C$+" ARMOR 


2670 PRINTC$;"("; PEEK ( &H5FO8+ (CRY(N)-1)#16+12)3") 


2686 NEXT 

2698 RETURN 

27086 LOCATE®,4:FORA=8TOI19 

2718 PRINTSPACE$( 28) 

2738 NEXT: LOCATE@,4: RETURN 

2880 REM GRAPH 

2810 LINE(2480,41)-(367,168),PRESET, ,BF 

2828 FORAD=SAD TO EAD STEP4 

2838 G=PEEK(AD) : X=PEEK(AD+1): Y=PEEK (AD+2) :C=PEEK(A 


2848 IFG=1THENLINE(X+248,Y+41 )-(X+248,Y+41),PSET,C 
2858 IFG=2THENLINE-(X+246,Y+41),PSET,C 

2868 1FG=3THENIFC=8THENPAINT(X+248,Y+41),CC,1 ELSE 
PAINT (X+246,Y+41),C,1 

2870 NEXT: RETURN 

2908 REM INPUT 

2918 PRINT"?"3: [$=INKEY$ 

2928 1 $=INKEY$: IFI$=""THEN2928ELSEN*SCREEN(POS( 6) - 
1,CSRLIN)-48 

2930 I1FASC( I$) >NMX+48ORASC(1$)<NMN+48THENIFASC(1$) 

<>13THEN2928 

2948 IFI$=CHR$(13)THENIFN>NMX ORN<NMN THEN2928ELSE 

RETURN 

2958 LOCATEPOS(8@)-1,CSRLIN: PRINTI$; :GOTO2926 

38086 COLOR7:LOCATE35,4:PRINT “CASTLE” :MK=@: PST=86 
3018 SAD=8&8H6806: EAD=8&H61 17: GOSUB2888 

3815 IFFIG<SFIG THENFIG=SFIG 

3628 IFMVE<SMVE THENMVE=SMVE 

3022 GOSUB25868 

3825 DY=3: IFLB=1THENDY=INT( (FME-SFME)/18)+3:ELSELB 
=] 

3038 GOSUB2788:PRINT"YOU CAN STAY HERE";DY$ "DAYS." 
>DY1=1 

38635 PRINT"DAY:";DY1 

38048 PRINTCNAM$;"'S OPTION: ":NMN21 > NMX=5 

3058 PRINT"1:START FOR THE LABYRINTH" 

3668 PRINT"2:BUILD UP STRENGTH" 

38678 PRINT"3:BUILD UP ENDURANCE" 

3088 PRINT"4:GAIN WEAPONS" 

3898 SS=@: IFSTA< 7THENSS=PEEK ( &H5E8O8+ (STA+1 )*16+8)* 
18 

31608 IFSS>®#ANDSS<=FME ANDMK=@THENPRINT"5:MEET WITH 
KING" : NMX=6 

31865 PRINTCHR$(NMX+48);":SAVE GAME" 

3118 LOCATE#®,13:PRINT"ACT:"; :GOSUB2966 

3115 IFN=NMX THEN98668 

31286 ON N GOTO3138,3308,3358, 3408, 3658 

3138 LOCATE35,4:PRINT"CAVES ":GOSUB2766 

3148 SAD=8H6118:EAD=8H61D3: GOSUB2868 

31586 SFIG=FIG: SMVE=MVE: FORT=6T047: TRC(T)=1 2 NEXT 
3168 TRP=INT(RND(1 )*8)#24+INT(RND(1)*8) : SFME=FME 
3178 PRINT"YOUR LAST SIGHT OF" . 


264 ~— LOGIN 


1985 No. 9 


318@ PRINT"THE SKY...... ": FORWT=1T0O5068 : NEXT 

3198 PRINT: PRINT“READY?(HIT ANY KEY!)" 

3208 I$=INKEY$: IFI1$=""THEN3266 

3218 PST=SPS((STA+#2)¥3):DIR=SDR((STA+2)¥3) > FORW=1T 
02068 :NEXT 

3298 GOTO5808 

3360 IFGLD< 2THEN3! 1 8BELSEGOSUB2768 

3316 PRINT"STRENGTH: "; 

3326 V=CINTCRND(1)*5)+15)¥((STG/28)+. 2) 

3338 PRINTV; "UP": STG=STG+V: GLD=GLD- 2: GOSUB25868 : LOC 
ATE#,6 

3348 GOTO37586 , 

3358 IFGLD< 2THEN31 1 BELSEGOSUB2768 

3368 PRINT"ENDURANCE: "; 

3378 V=CINTCRND(1 )#15)+25)¥((EDR/18)+.2) 

3388 PRINTV; "UP": EDR=EDR+V: GLD=GLD- 2: GOSUB2588@: LOC 
ATE#,6 

3398 GOTO3758 

3488 GOSUB2788 

3458 PRINT"WEAPONS(PRICE):" 

3468 CT=-1:FOR]26TO9:WT( 1 )=8:NEXT 

3478 FORI=@TOIS 

3488 RD! =PEEK(&H5F060+1#16+14)/18 

3496 IFRND(1)<RD!THENCT=CT+1 : IFCT=9THEN3 468ELSEVT ( 
CT)=[ +1 

3568 NEXT 

3518 FORI=@TOCT: IFWT( 1 )=@THEN3558@ 

3528 C$="":FORC=8TOS9: C$=C$+CHR$( PEEK ( &8HSFOB+ (WT (I) 
-1)#16+C)) = NEXT 

3538 IFWT( 1) >7THENC$=C$+" SWORD"ELSEC$=C$+" ARMOR" 
3548 PRINTI41;":";C$;"("; PEEK (&HSFOO+ (WT (I )-1)*16+ 
13)3")” 

3558 NEXT 

3568 LOCATE#@,15:PRINT"NUMBER(@=NONE):"; > NMN=@: NMX= 
CT+1:GOSUB29886 

3578 N=N-1: 1FN=-1THENPRINT:GOTO37586 

3580 IFPEEK(&H5F00+(WT(N)-1)%*16+13)>GLD THEN3568 
3598 GLD=GLD-PEEK ( &H5F06+ (WT(N)-1)%164+13) 

36080 FORI=8TO7: IFCRY(I )=@THENQ=!I :GOTO3610 

3602 IFCRY(1)<8ANDWT(N)< 8THEN35686 

36865 NEXT 

3618 CRY(Q)=WT(N) : GOSUB25686 

3628 GOTO3568 

3658 GOSUB2768@:FORI=8T07: IFCRY (1 )=8THENQ=I : GOTO366 
0 

3655 NEXT 

3668 PRINT"GIFT WEAPONS(0-";Q;")"3 >NMN=8:NMX=Q+1:G 
OSUB2988 

3678 IFN=68THEN3786ELSEN=N-1 

3688 FME=FME+PEEK ( &H5F08+ (CRY (N)-1)#16+13)/5*FRT 
3698 CRY(N)=8:FORS=N TO7:CRY(S)=CRY(S+1) > NEXT 

3788 GOSUB2568 

3718 MK=1 

3728 IFSTA<6THENSTA=STA+1ELSESTA=STA+ INT (SGLD/ 28) 
3738 GOSUB2588:LOCATE@,6:PRINT"YOU ARE NOW ";ST$:P 
RINT" ,";CNAM$ 

3758 PRINT: PRINT"HIT ANY KEY!" 

37680 I1$=INKEY$: IFI$=""THEN37686 

37786 GOSUB2766:DY1=DY1+1:1FDY<DY1 THEN3138@ 

3788 GOTO3835 

4688 DIMGAD(27):RESTORE4626 

4818 FORI=8T027:READA$: GAD(1)=VAL("8&H"+A$) > NEXT 
4626 DATA6338,6397,6400,642F,64380,6477,64C6,64EF 
4638 DATA6478,64BF,64F8,651F,63C8,63FF,6398,63C7 
4048 DATA6644,676B,676C, 685F, 6868, 69EF,69F8,6BC3 
4658 DATA6BC4, 6DF7,6BC4, 6DF7 

4868 DIMPCD%(47) 

4078 FORI=@T047:READPCD%( 1): NEXT 

4886 DATA2,1,1,2,1,3,2,0,3,0,0,3 

4098 DATAG,6,6,6,5,5,4,4,5,7,7,5 

4180@ DATAI1,11,11,11,10,10,9,9,18,8,9,9 

4118 DATAI2,12,14,12,15,13,15,15,13,15,15,13 

4128 FORI=86TO3: READDR$(1) : NEXT 

4138 DATA"NORTH “," EAST ","“SOUTH "," WEST " 

4148 FORI=@TO3:READMV (I) :NEXT 

4158 DATA-24,1,24,-1 

4168 FORI=8T04: READP$: SPS(1)=VAL("8&H"+P$) > NEXT 
4178 DATA52D4,511D,54F2,55AC,55AC 

4188 FORI=8T04:READSDR( I): NEXT: RETURN 

4198 DATA®#,3,1,3,3 

58080 IFPST=HGP THENLOCATE35, 4: PRINT"GREAT! ": SAD=8&H 
6104: EAD=8H6337 : GOSUB2888 : GOTO! 6868 

5818 LR=PEEK(PST) :MS=8@:GDS=8 

5015 LOCATE35,4:PRINTDR$(DIR) 

5820 IFINT(LR/16)=1THENSAD=8&H6ED8: EAD=8&H6FB7 : GOSUB 
2888: GOTO54186 

5838 IFINT(LR/16)=2THENSAD=8H6DF8: EAD=&H6ED7 : GOSUB 
2886: GOTO54186 

5648 IFINT(LR/16) >2THENSAD=8H65 286: EAD=&H659F : GOSUB 
28868:GOTO5418 

5058 ST=6:FORT=6TO3:B1 (T)=8:B2(T)=8:NEXT 

5678 FORI=8T0O3:B1 (1 )=FNB(LR,I):NEXT 


58880 FORI=DIR TO DIR+3: J=I1:1FJ>3THENJ=J-4 

5696 IFI-DIR=2THEN5S116ELSEIFI-DIR=3THENB2(2)=B1 (J) 
:GOTO5118 

5108 B2(1-DIR)=B1 (J) 

5185 LOCATE35,4:PRINTDR$(DIR) 

5118 NEXT: VD=86 

5128 FORI=8TO2: VD=VD+(2*1 )*B20 1): NEXT 

5136 SAD=GAD(VD#2):EAD=GAD( VD#*2+1) : GOSUB2808 

5148 PC=INT((PST-8&H5888)/192)#3+INT( ((PST-&H5008)M 
0D24)/8) 

5158 P=PST-8&H5608:PP=((P-((P)¥192)#192)¥24)*%24+P M 
OD8 

5168 IFPP<>TRP OR TRC(PC)=@THEN53180 

5188 SPN=INT(RND( 1 )*#28)+12:CL=INT(SPN-8)/4: IFCL>3T 
HENCL=CL+#1 

5198 SAD=8&H65E@ : EAD=8&H6643: CC=CL: GOSUB2828 
5208 GOSUB2708 

5218 PRINT"THERE IS A SEPTRE." 

5228 PRINT"YOU GET";SPN; "POINTS": PRINT" 
D,AND" 

5238 PRINT" 1:ENDURANCE": PRINT" 2:STRENGTH":PRINT"3: 
FIGHT": PRINT"4:MOVE":NMN=1 : NMX=4: GOSUB2968 

5248 ONN GOT05258,52680,5278,5288 

5258 EDR=EDR+SPN: GOTO5298@ 

5268 STG=STG+SPN: GOTO5298 

5278 FIG=FIG+SPN: SFI G=SFIG+SPN: GOTO52986 

5288 MVE=MVE+SPN: SMVE=SMVE+SPN 

5298 FME=FME+SPN#FRT : GLD=GLD+ SPN: GOSUB258@ : TRC( PC) 
=6 

5308 TRP=INTCRND(1 )#8)#24+INTCRND(1 )*8) > GOTO5138 
5318 IFINT(CRND( 1 )*488+PCD%( PC) )< 398ORGDS >BTHEN5378 
5315 SAD=8&H65A86: EAD=&H65DF : GOSUB28 28 

5328 GOSUB2708:PRINT"THERE IS GOLD":G=INT(RND(1 )#*2 
8)+10+PCD%( PC) 

5338 PRINT“YOU GET";G; "POINTS GOLD" 

5348 GLD=GLD+G: PRINT: PRINT“HIT ANY KEY" 

5358 I$=INKEY$: 1FI$=""THEN5356 

5368 GOSUB2588: GDS=1 :GOTO51 38 

53780 S=INTCRND(1)*256+1):R=0: TF=FNC(PCD%(PC)+FNC(S 
TA,6),15)#16:A=8HSD866+TF 

5388 FORV=A TOA+15:R=R+PEEK(V) 

5398 IFR>S ANDMS=@THENMS=1 : GOTO68086 

5466 NEXT 

5418 GOSUB2768 

5426 PRINTCNAM$;"'S OPTION: ":NMN=2:NMX=29: OP$="" 
5438 IFINT(LR/16)=2THENPRINT"1:CLIMB DOWN": NMN=1:0 
P$= “ ] “ 

54486 PRINT"2:MOVE BACK": OP$=OP$+"2"“ 

5456 IFINT(LR/16)=@8ANDB2(2)=@THENPRINT"4:MOVE LEFT 
":OP$=OP$+"4" 

5466 IFINT(LR/16) >2THENPRINT"5: JUMP INTO STREAM":0O 
P$=OP$+"5" 

5476 IFINT(LR/16)=8ANDB2(1)=@8THENPRINT"6:MOVE RIGH 
T" :OP$=OP$+"6" 

5486 IFINT(LR/16)=1THENPRINT"7:CLIMB UP": OP$=OP$+" 
7 

5496 IFC INT(LR/16)=8ANDB2(8)=@)ORLR¥16>2THENPRINT" 
8:MOVE AHEAD": OP$=OP$+"8" 

5506 PRINT"9S:SAVE GAME": OP$=OP$+"9" 

5518 LOCATE#@,18:PRINT"ACT:"; :GOSUB2968 

55280 IFINSTR(OP$, CHR$(N+48) )=@8THEN5518 

5538 IFN=STHEN9S880 

5546 IFN=5THEN7006 

5556 IFN=1THENFORA=6TO1 4: IFPST=PEEK ( &8H5EC8+A*4 ) #25 
6+PEEK ( &8HSEC@+A*4+ 1) THENPST=PEEK ( &8HSEC8+A*4+2)*256 
+PEEK ( &8H5EC8+A*4+3):GOTO5608 ELSENEXT 

5568 IFN=7THENFORA=B6TO1 4: IFPST=PEEK ( &H5EC@+A*4+ 2) * 
256+PEEK ( 8HSEC8+A%4+3 ) THENPST=PEEK ( &8H5ECB +A*4 ) 256 
+PEEK (&8H5EC8+A*4+1):GOTO5608 ELSENEXT 

5578 IFN=2THENPST=PST-MV(DIR) :DIR=DIR+2: IFDIR>3THE 
NDIR=D1R- 4: GOTOS@8HELSE5668 

5588 IFN=4THENDI R=DIR-1: IFDIR<@THENDIR=DIR+4:PST=P 
ST+MV (DIR) : GOTOS88BELSEPST=PST+MV(DIR) : GOTO5808 
5598 IFN=6THENDIR=DIR+1:1FDIR>3THENDIR=DIR-4:PST=P 
ST+MV(DIR) : GOTOS88BELSEPST=PST+MV( DIR) : GOTO5808 
5608 PST=PST+MV(DIR) :GOTO5#000 

5868 IFSTG<=1THENSTG=1 

5818 IFFIG<=@THENEDR=EDR+F1G:F1G=8 

5826 IFMVE<=@8THENEDR=EDR+MVE: MVE=8 

5838 [FEDR<=@8THENEDR=8 : GOSUB25086 : FORA=1TO8@66 : NEXT 
> GOTO8688 

5848 RETURN 

6608 M=V-A:GOSUB2766:CC=PEEK (&H5C86+M#*16+14) :MM=M 
6818 SAD=GAD(16+ (M¥3)*2):EAD=GAD( 17+ (M¥3)%*2) :GOSUB 
28208 

6628 M$="": FORT=8TO7 : M$=M$+CHR$( PEEK ( &H5CO8 +M*1 6+T 
)) 2 NEXT 

6638 MFG=PEEK (&H5C860+M*16+8) >: MMV=PEEK ( &8H5C@0+M*1 6+ 
9) 

68648 MAR=PEEK ( &H5C60+M*16+18) >: MED=PEEK( &H5C@0+M#16 
12) 

6858 MAT=PEEK ( &H5C80+M*16+11):PRINTM$;" APPEARED ! 
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," 
6052 PRINT" ENDURANCE: ";MED: PRINT"FIGHT: ";MFG 

6654 PRINT"“MOVE: ";MMV: PRINT" ARMOR: ";MAR: PRINT“ ATAC 
K:";MAT 

6868 FORI=6TO7: IFCRY(I) >7THEN688B 

6878 NEXT:PRINT“YOU ARE BAREHANDED !":SWT#1:SAT#4: 
GOTO61 48 

6888 LOCATE#,18:PRINTCNAM$;"'S SWORD: "; >: NMN=1 :NMX= 
8: GOSUB2988:N=N-1 

6098 IFCRY(N)<8THEN6688 

6100 S$="":FORS=@TO9: S$=S$+CHR$( PEEK ( &8HSFBB+ (CRY (N- 
)-1)%16+S)) 

6118 NEXT:S$=S$+" SWORD" 

61260 LOCATE#@,11:PRINTS$;" !" 

6138 SWT=PEEK(&H5F00@+(CRY(N)-1)%16+12):SAT=PEEK(&H 
5FO0+ (CRY(N)-1)%16411) 

6148 LOCATE#@,12:PRINT"AND “;CNAM$;"'S ARMOR: " 

6158 FORI=@TO7: IFCRY( 1) S*BANDCRY(1)<8THEN61 78 

6168 NEXT: PRINT"“NONE !": AWT=1:ARM=2@: GOTO6200 

6178 A$="":FORA=6TO8: A$=A$+CHR$( PEEK ( &H5F 08+ (CRY (1 
)-1)#16+A)) 

6188 NEXT: A$=A$+" ARMOR": PRINTA$;" 1" 

6198 AWT=PEEK(8&H5F00+ (CRY(I)-1)%16+12) : ARM=PEEK(&H 
5FO0+ (CRY(1)-1)%16+18) 

6208 PRINT: PRINT“READY?(HIT ANY KEY !)" 

6218 I$=INKEY$: IFI$=""THEN6210 

6228 GOSUB27808: Y$="/1\-@®-\. 17": X$="6127 3654" 

6238 PRINTM$;"‘S ATACK :":MVE=MVE-AWT¥STG: GOSUB588# 
) 

6240 L=7-(MVE*2) ¥MFG+AWT*2¥STG 

6258 IFL>7THENL27ELSEIFL< @THENL=@ 

6278 APP=INT(RND(1)*8):FORI=8@TO7:DD(I )=0: NEXT 

6288 Z$="":FORW=APP TO APP+L: X=W: IFX>7THENX=X-8 
6298 DD(X)=255: NEXT 

6388 FORC21TO9: IFC=5THENN=255: GOTO6328 

6318 N=DD(VAL(MID$(X$,C,1))) 

6328 H$=CHR$( ASC(MID$(Y$,C,1)) AND N): IFH$=CHR$(8)T 
HENH$=" " 

6325 Z$=Z$+H$ 

6336 NEXT 

6348 PRINT"7 8 9“:PRINT" ";RIGHT$(Z$, 3) 

6356 PRINT"4" ;MID$(Z$,4,3); "6" 

6368 PRINT" “;LEFT$(Z$,3):PRINT"1 2 3" 

6378 LOCATE@,18:PRINTCNAM$;"'S PARRY: "; :NMN=1 :NMX= 
9: GOSUB29886 

63880 IFN=5THEN6378ELSEP=VAL(MID$(X$,N,1)) 

6398 AT=APP+I'NT(CRND(1 )*(L4+1)):CK=INTORND(1)*3):1FA 
T>7THENAT=AT-8 

6395 PRINT: PRINT"ATACK---"; INSTR(X$, CHR$(AT+48));5M 
ID$("THRUST !'SWING ! CHOP ! ",CK#8+1,8) 

64080 IFCK=®@8THENIFP=AT THEN6448 

6418 IFCK=1THENIFP=AT ORP=AT-4 ORP=AT+4THEN6448 
6428 IFCK=2THENIFABS(P-AT)< 20RABS(P-AT ) >6THEN6446 
6438 PRINT"MISS ! ";MID$( "GOOD! LUCKY! WELL! ", INT( 
RND( 1 )#3)*6+1,6):GOTO6488@ 

6446 PRINT"HIT ! "3 :3QOLOR=(7,2):COLOR#(1,2):SV=16 
> SN=28: SL=38@: GOSUB7 48 

6450 DH=INTCINT(C(01.8/0CK+1) )*MAT)#*#(RND(1)41)):DG=D 
H-ARM: DH=DH*28¥STG: 1 FDG< BTHENDG=8 

6468 PRINT“DAMAGE:";DG;"(";DH;") !" 

6478 EDR=EDR-DG: STG=STG-DG: FI G=F1G-DH¥2:MVE=MVE-DH 
¥2:GOSUB58866: COLOR=(7,7):COLOR=(1,1) 

6472 GOSUB2506:PRINT“READY?(HIT ANY KEY!)" 

6474 I$=INKEY$: 1FI$=""THEN6474 

6488 GOSUB2568 

6588 GOSUB2768 

6518 PRINTM$;"'S PARRY: ":F1G=F1G-SWT¥STG: GOSUB586@ 
6528 L=7-(FIG#1.4)¥(MMV+1 )+SWT*2¥STG 

6530 IFL>7THENL=7ELSEIFL< @THENL=8 

6548 DPP=INT(RND(1)*8):FORI=@TO7:DD(I )=@:NEXT 

6558 Z$="":FORW=DPP TODPP+L: X=W: IFX >7THENX=X-8 
6568 DD(X)=255:NEXT 

6578 FORC=1TO9: IFC=5THENN=255: GOTO6598 

6588 N=DD(VAL(MID$(X$,C,1))) 

6598 H$=CHR$(ASC(MID$(Y$,C,1)) AND N): IFH$=CHR$(8)T 
HENH$="_ “ 

6595 Z$=Z$+H$ 

6606 NEXT 

6618 PRINT"7 8 Y9"“:PRINT" “;RIGHT$(Z$, 3) 

6628 PRINT"4";MID$(Z$,4,3); "6" 

6638 PRINT" ";LEFT$(Z$,3):PRINT"1 2 3" 

6648 LOCATE@,18:PRINTCNAM$;"'"S ATACK:"; :NMN=1:NMX= 
9: GOSUB2988 

6650 IFN=5THEN664H8EI SEP=VAL.(MID$(X$,N,1)) 

6668 PRINT: PRINT" 1: THRUST 2:SWING 3:CHOP ";:NMN=1; 
NMX=3 : GOSUB2968 

6678 DT=DPP+INT(RND(! )*(L+1)): IFDT>7THENDT=DT-8 
6675 PRINT: PRINTM$;" PARRY---"; INSTR(X$, CHR$(DT+48 
)) 

6680 IFN=1THENIFP=DT THEN6726 

6698 IFN=2THENIFP=DT ORP=DT-40ORP=DT+4THEN6728 

678086 IFN=3THENIFABS(P-DT)< 20RABS(P-DT) >6THEN67 28 
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6718 PRINT"MISS !":GOTO67686 

6720 PRINT"HIT ! “;MID$C "GREAT! BRAVO!LUCKY!", INTCR 
ND(1)*#3)*6+1,6) 

6725 SV=16:SN=25+SAT/16:SL.=38 : GOSUB7 486 

6738 DG=INTCINT((01.8/N)*#SAT)*(CRND(1 )*.2+1))-MAR: IF 
DG< 6 THENDG=8 

6748 PRINT"DAMAGE:";DG;"!" 

67580 MD=MED: MED=MED-DG: I FMED< =@THENPRINTM$;"" DEAD 
1!" :GOTO6764 

6752 MMV=MMV*(MED/MD) : IFMMV< STHENMMV=5 

6753 MFG=MFG-DG¥ (200¥ (STG+1)) 

6755 PRINTM$;" ENDURANCE: ";MED:PRINT"READY? (HIT AN 
Y KEY!" 

6757 1$=INKEY$: [FI $=""THEN6757 

6766 GOSUB2588 : GOT06228 

6764 SOUND7,55:SOUND6, 26: SOUND8,16:SOUND1 2,8: SOUND 
11,48:SOUND1I3,186 

6765 YD=INTCRND#*2)+1: 1FM>2ANDM<K 6THENYD=@8EL.SEIFM>5A 
NDM< 9THENYD= 1 ELSEIFM>8ANDM< | 2THENYD=2 

6766 Y=20+20*YD+ INT (RND#*16) > FORCC=6TO260+PEEK (&H5C# 
O6+M¥16+13)¥2:LINE(64+241,Y+40)-CINTCRND#¥127)+241,1 
NTC RND#*127)+41),PSET,2:NEXT 

6767 SV=16:SN=28: SL=268:GOSUB7 46 

6778 F=PEEK (&HS5COB+M*16+13) 

6773 GOSUB2586 

6775 PRINT"HIT ANY KEY !!" 

6776 I1$=INKEY$: IFI$=""THEN6776 

6788 GOSUB2788 

6798 PRINT"YOU GET";F; "POINTS FAME, AND" 

6866 PRINT"1:FIGHT":PRINT"2:MOVE" :NMN=1 > NMX=2:GOSU 
B2900 

6818 |FN=1THENFIG=FIG+F 

6820 IFN=2THENMVE=MVE+F 

6830 FME=FME+F*FRT : GOSUB2568 

6848 GOTO5138 

706808 LOCATE35, 4: PRINT"GROUND" : GOSUB2766 

780186 SAD=8&H6118:EAD=8&H61D3: GOSUB2888 

7028 PRINT"HOW FRESH THIS AIR IS !" 
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7636 PRINT"NOW ,":PRINT"YOU CAN GO BACK TO CASTE ! 
7046 PRINT: PRINT" READY? (HIT ANY KEY !)" 
7050 1$=INKEY$: IF] $=""THEN7656 
7660 GOTO3BHB 
8608 CLS: PRINTCNAM$;" DEAD 
T"TRY AGAIN? (Y/N)" 
8005 COLOR=(1,1):COLOR=(7,7) 
8010 I$=INKEY$: IFI$=""THEN8O1B 
8020 IFI$="Y"ORI$="y"THENRUN 
86380 IFI$="N"ORI$="n"THENEND 
8048 GOTO86186 
9880 GOSUB27680:PRINT“READY TAPE? (HIT ANY KEY)" 
9018 I$=INKEY$: 1FI$=""THENSB1B 
98615 FORC=8TO7:S$=MID$(CNAME$,C+1,1 
BELSES=ASC (S$) 
9016 POKE&H78880+C,S: NEXT 
94620 POKE&H7808,FME¥256: POKE&H7869,FME MOD256 
9638 POKE&H78B8A, GLD¥ 256: POKE&H780B,GL.D MOD256 
96480 POKE8&H7806C, EDR: POKE&H7886D,STG 
9045 POKE&H780E, FIG: POKE&H7 8BF ,MVE 
POKE&H7810,STA 
POKE8H7811,PST¥256: POKE&H7812,PST MOD256 
POKE&H7813,DIR 
FORC=@TO7: POKE&H7814+C, CRY CC) > NEXT 
POKE8&H781C,SGLD: POKE&H781D,SF1G: POKE&H781E,SM 


/FAME:",FME:PRINT: PRIN 


): [ES$=""THENS= 


POKE&H781F,TRP: FORT=8T047 : POKE&H78206+T, TRC(T) 


9118 POKE&H7856,HGP¥ 256: POKE&H7851,HGP MOD256:POKE 
&H7852, SFME¥ 256: POKE&H7853,SFME MOD256 

91280 SAVEM"MD", &8H7808, 8H7853, &H78H0 

9130 PRINT: PRINT“GAME IS SAVED.":END 

10000 COLORI,7:CLS:WIDTH46, 25 

160180 SAD=8&H61D8: EAD=8H6337 : GOSUB2806 

10020 LOCATE1L,1:PRINT"GREAT !! “;CNAME$;" GOT *SAC 
RED GRAIL* !1I" 

16036 END 
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CAT -LILBKNDPUT IAD HHMSNTIS, 
NARLIEBASICLVAADALT, SAVE “TP 4{NVA" 
[RETURN] C2—7TS, VAbZNSCYY Blt, E=F 
NEIVY ECAH W, BDBO, E4CF|RETURN] CX 
—7F4, VA3lk, BASIC LYNAAL, SAVE **¥ » 


@YAhI BASICIJONIFL 


“Satvyts 


t++b” [RETURN| Ce —-T7V4, SH. TAA eEAT 
ZER, YVAL2IEBSAVE**¥ y+++m, &HBDBO, & 
H271F [RETURN] Ce —7FF4ZCEL, 

Hie ls, LOADS 77 47.%” [RETURN] CUAh1 
@a— kf, RUN[RETURN] C7—AAZY—bTS, 


118 CLEAR ,&HBDAF:SCREEN @,3:FOR I=@ TO 7:COLOR=(I,I):NEXT:CLS 2:SCREEN ,@:WIDTH 


48,25:CONSOLE @,25,8,1 
2808 ‘o0-9*- 
218 FOR I=@ TO 99:BEEP(1):NEXT:BEEP(@) 
228 COLOR S:LOCATE 7,9:PRINT'C HU 97 » 
238 COLOR 4:LOCATE 11,12:PRINT’( 7°07" 5h 
248 CONSOLE 18,7:CLS 
25@ COLOR 2:LOCATE 4:PRINT’#-7° 
2686 Q$=INKEYS$: IF Q$<>‘"1° 


GOTO 380,480 


-49* _ 


AND Q$<>*°2" THEN 268 


278 CLS:COLOR 6:LOCATE 15:PRINT*F3%bh YuF%!":CONSOLE 280,5:CLS:COLOR @:0N VAL(Q$) 


388 KBS="MON*+CHR$(13)+°R*+CHR$(13)+CHRS$(2)+° LOAD" +CHR$(34)+"CAS: °+CHR$(13)+"RUN 


"+CHR$(13) 


31@ ADR=&HEFD8:FOR I=1 TO LEN(KBS):POKE ADR+I,ASC(MID$(KB$,1,1)):NEXT 
3286 POKE &HEFCE,31:POKE &HEFCD,LEN(KB$)-1:END 


48@ BLOAD* + ¥%-m* sRUN*#9%-+b' 
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@VAKe VUYRBIOIS 
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BDB8 6@ 1A 77 13 23.10 FA 21 C7 Ci@8 88 88 8B 48 AB 4B 27 27 6F C458 OF BF 86 FO E@ B3 BB BE 1A 
BDC®@ @@ CO @6 BB AF BB 28 G6 DB C110 27 68 68 68 72 72 72 AE BC C468 48 A@ BC 83 B82 2E CB BB 63 
BDC8 11 68 @@ 19 18 FD 11 De FD Cii18 4£ 4E 88 88 B88 4 4 B4 81 C468 E8 @5 64 8@ AB 20 EB B7 CC 
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BOD8 23 4E B1 2F 2B 2B C5 @6 7 C128 @@ BE BG BB EB BB BB FE C5 C478 C®@ C8 BE BB BB EE BB BB BB 
BDE@ @3 FS EB 4E EB Al 4E Bi 59 C13@ 68 88 BC O63 OB ZE CO OB EE C486 08 FF 08 7E 81 7E @@ FF BF 
BODES 77 13 23 F1 18 F3 C1 1@ 17 Ci38 E@ BF 6G 6G FO 68 EB iF D7 C488 @6@ E6 @1 E6 O1 FE 61 EF B68 
BDF@ £3 C9 B@ @@ 88 Be ee Ba 59 Ci4@ @@ 86 F8 OB EB 1F BB G6 64 C4980 AF AF 7F 8@ 7F EF CF 2F' BD 
BOF8 @@ @@ BA BB BG BE Be Be BS 15 C148 F8 68 18 1F 88 BE FB BA 36 C498 (S55 AA 7F EF CF 2F 7F 88 Cé 
BFe@ CO 88 BF 11 D@ E4 06 82 97 Ci5@ F8 1F @@ 18 F8 @@ EF OF 36 C4A8 7F E6 81 66 55 AA 7F FE 2C 
BF@8 @F 18 CS F3 1A 03 5C 77 SC Ci58 @@ FE F@ @@ E7 @7 @@ EE E3 C4A8 61 FE 7F 8@ 7F FE 01 88 68 
BE1@ D3 5F 13 1A 03 5D 77 D3. A? C168 E@ @@ BF @@ @1 EE G@ BG 7F C4B@ 55 AA 7F FE 61 88 7F 8O FB 
BE2@ 13 FB 23 10 £6 C1 C5 3E C9 C170 @@ BE 8@ B@ EB BG BB EE BD C4C@ 61 BB 7F 8B BB FE B61 BB 83 
BE3@ 20 D8 C9 B@ BB BB eB Ba AF C18@ @@ FF @@ @@ FF eB @@ FF 3F C408 0@ 8@ FF B68 FF FF 88 FF 9@ 
BE38 @0 @@ BG B@ BG BB BB eB FS C188 @@ @@ FF @@ 6@ FF aB@ BA 47 C408 FF @@ 3F 3F 68 FC FC 8@ 11 
BE4Q 21 E@ E2 3E @B FE 88 28 45 C198 FF @@ 68 FF 8@ @@ FF GO 4E C4E@ 7F 8@ 7F FE 061 FE 68 OF 1E 
BE48 @7 47 11 68 @8 19 10 FD EB C198 60 FF 68 68 FF 66 BB FF 56 C4E8 7F 06 FO FE 68 OF 71 B66 YE 
BES@ 11 BE C7 EB 86 89 C5 86 39 C1A@ 88 @@ FF @@ @@ FF 8B B@ SF C4Fe FO 6E 68 9F 75 B6 F9 2E BC 
BE58 @C C5 05 ES E5 21 @@ CB 67 CiA8 FF @@ @@ FF @@ @@ FF 8B 66 C4FB 68 9F 75 B86 FO 4E 68 SF 7C 67 
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E@ 
3F 
F2 
EQ 
CF 
80 
88 
G1 
ae 
EE 
2A 
70 
FC 
83 
8a 
FF 
38 
ae 
E3 


FE 
SF 
GE 
D3 
13 
0 
8C 
48 
8 
Be 
29 
7 
FE 
7F 
ae 
FC 
17 
oe 
Bi 
86 
rT) 
C2 
47 
e 
98 
3F 
er) 
F2 
5F 
ae 
Cé 
28 
@1 
ce 
86 
2B 
5C 
ae 
BF 
C1 
a 
FF 
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1985 No. 9 


nou 


80 
?F 
FA 
78 


1F @@ FS EC E1D8 @@ @F 68 BG F@ 16 @@ 7 D7 
F8 FE @@ 92 E1E@ @7 88 E@ EG 06 1F 19 68 26 
7@ 8B EB 19 E1iE8 FS 98 @1 1F 1E 86 F8 78 87 
8B GE D1 EF 1D E1F@ @@ 1F 1F @@ F8 F8 10 3F 4E 
C8 F8 8@ 92 E1F8 2F @8 FC F4 8@ 7F F7 @@ F6 9D 
@@ 11 31 BB E200 FE EE @@ FF E1 @@ FF 87 34 
63 @@ C2 67 E208 @4 FF E5 20 FF A7 @@ FF 97 
68 60 G@ 3E E21@ Fi @@ FF 8F @@ 7F 7B @7 72 
ee ci c3 cs E218 FS DF 38 61 39 6@ 80 8@ 43 
63 68 1@ CA E220 64 38 3C 8G 88 B@ AB 7C Fé 
£1 F3 @@ F6 E228 7C @@ @6@ 6G 8@ 7E FE @@ 82 
66 @1 89 56 E23@ @@ @@ 82 7F ES @@ CO Be BS 
4F @7 FC BF E238 8@ 7F C3 @@ D8 De 18 7F 13 
FC FC 68 19 E248 17 40 FE AC 0@ 7F 47 48 29 
@@ 4F 4F C3 F248 FF AB @@ FF FF 80 FF 6A BB 
19 @7 FA 61 E25@ 0 FF FF 80 FF 6A 88 7F 98 
F8 FE 868 78 E258 47 40 FF AB 10 7F 17 48 51 
66 20 61 EF E26@ FE AC 80 7F 43 08 08 DA 56 
43 88 20 B7 E268 @2 7F 65 68 C@ CO 40 3E 2E 
68 18 @@ 75 E270 7E @@ @@ 8 4@ 3C 7C B@ C8 
6@ @4 8D 5A E278 @@ 68 4@ 38 78 @@ 6G Be 4A 
8D @0 64 64 E28@ @@ @@ @@ @2 1C 1E 88 BB 9E 
98 9C @@ 3F E288 @@ 02 3C 3E 886 @@ 66 B2 EB 
E@ SF 7F B3 E298 7C 7E @@ 03 83 48 FE A6 56 
3F @@ F2 EF E298 @@ 1B @B @@ FE C2 62 7F E1 
FE FE @@ D3 E2A@ 35 @8 FE E8 @2 FF D5 @@ 7B 
68 3F 3F 87 E2A8 FE E2 01 FF 56 @@ FF FF BE 
?7F 68 86 BI E2B@ @1 FF 56 @@ FF FF @2 FF E7 
—E8 F8 E@ AD E2B8 05 @@ FE E2 @2 7F 35 @8 @D 
66 68 8D C2 E2C@ FE E8 @@ 1B @B @1 FE C3 78 
@0 08 83 BA E2C8 @@ @3 03 41 FE A7 @@ @8 96 
68 F@ 8B 2A E2D@ @@ @1 7E 7F 88 BB BB Be Be 
88 88 41 02 E208 3E 3E @@ @@ @@ 28 1C 3C AE 
68 77 @@ 7B E2E@ @2 62 @2 62 62 B62 82 B2 D2 
68 68 E6 16 E2E8 @2 62 @2 62 @2 @2 @2 @2 DA 
D4 BE 3A 16 95 E2F@ @2 @2 @2 62 @2 62 82 B2 E2 
GE 3F 3@ AC E2F8 @8 @2 62 @2 @2 62 62 @2 FO 32 
68 81 F9 Ce E388 62 82 82 62 85 B68 88 Be FB 
FD @@ Ci 71 E388 @@ 8G 88 BG 68 BG BB BS FB 
E@ FF 88 96 E318 @5 84 @@ OG 04 BG 84 BB B4 
68 76 FF BD E318 64 88 64 @5 @5 66 BB ee aD 
FF 68 BC 82 E328 8 88 68 BB BB BB BB BS a8 
86 C7 BB D7? E328 65 64 @@ BG 64 BG B4 BB 1C 
@@ @@ C@ C3 E33@ 64 88 @4 @5 @5 Be BB Be 25 
C@ 88 48 £3 E338 @@ 88 @@ BG eG BB BB B5 20 
28 EF @@ 49 E34@ @5 85 @@ 68 @5 85 85 e5 41 
@@ 1C FF 8D E348 @5 85 @5 @5 @5 64 86 ee 48 
FF @@ @7 59 E35@ @B 88 6B BG @B Be 84 BS 5D 
83 FF 86 C7? F358 @5 88 G8 88 B@ BB BB B@ AB 
@@ Ci FD C8 E368 @@ 88 @@ @5 @5 BG OF e@ SC 
F9 @C 3C 98 E368 @F OG OF 6G OF BG BF BS BC 
3A 3B 78 26 E378 @5 88 BG BG Be BG Be Be 58 
78 54 04 73 E378 8 @@ 88 @5 @5 BF BB BF 83 
E6 @8 @7 8E E38@ 00 OF @@ OF BB BF BB @5 95 
63 53 66 31 E388 @5 88 BG BB BB Be BG BB 72 
@@ 8@ 8@ Cé E398 68 88 @@ @5 @5 64 BB Be 81 
FE 8 08 48 E398 @@ 88 B@ BG @@ BG 24 B65 B84 
86 3E @@ BC E3A@ @5 @5 @5 @5 @5 B65 BB B@ AC 
6@ 88 FS FD E3A8 @@ @B @5 85 @5 BA BB BG AF 
FC 1E 32 2B E3B@ 68 @@ @@ BG 88 BB 89 BS Al 
7C 7F 8B 28 E3B8 @5 88 G8 B@ 8B BG BB B@ AB 
@@ —@ FF ODS E3C@ 68 @@ B@ B5 @5 B@ BE BB BB 
FF 1C iF 68 E3C8 @E 68 BG BE BG BE B@ @5 DA 
13 33 6@ 1D E3D@ 85 @@ 88 8 @@ B@ eB6 Be BS 
@@ @C FC F7 E308 @@ 08 @@ @5 @5 68 BE Be D3 
F8 00 3C 7F E3EQ@ GE 88 @@ BE BG BE BB BS F2 
7@ 78 @@ 22 E3E8 @5 88 88 BG 68 Be BG ea De 
@@ E@ FE AS 99 E3F@ @@ 88 @@ 85 @5 G4 BB B@ E1 
88 @@ BE FS E3F8 @@ 88 @@ BG BG Be B7 @5 E7 B3 
iC 3F @@ ODE E4e@ @5 @5 @5 BB 8 BG OB @5 BE 
@@ 20 E6 E6 E408 @5 @5 @5 @5 @5 B@ 88 BB @5 
FQ 88 6@ 98 E410 68 88 @@ BG BB B@ BB eS FI 
Ci FF 38 84 E418 @5 63 @@ 63 @@ B@ 2B B3 BA 
@@ 83 FF @3 E420 64 04 @3 85 @5 64 BB B4 21 
FF @@ GE 2B E428 @@ 68 88 OG BB Be BG @5 11 
1C 7F 78 9F E43@ @5 G4 @@ G4 BB BG BB B3 24 
78 70 FO 8@ E438 64 04 63 85 @5 83 86 @3 37 
E6 80 2@ BE E44Q@ 88 88 B@ BG BB BG BB BS 29 
48 7E @@ @A E448 @5 88 @@ BG BB BG BB B3 34 
66 88 8@ C9 E45@ @4 84 @3 @5 85 @B BB BC 6@ 
9C E@ 1F 7A E458 @@ 00 @@ BB 8B B@ BG @5 41 
FF F1 @@ 10 E468 @5 @5 @5 @5 88 B@ BG G6 SE 
2@ FF A? 8D E468 85 65 @5 B5 10 18 10 18 AB 
87? 68 7F 3E E470 8 68 B68 15 16 10 10 10 Ag 
3F 2F 68 AC E478 1@ 11 12 1@ @8 08 @@ 16 BS 
66 F8 FB 87 E488 16 13 14 16 10 1@ 10 1@ EB 
78 66 iF C4 E488 06 6@ @@ 17 10 10 18 18 C3 
87 67 BB 98 E490 @1 G1 @1 O1 O1 1 B1 B1 7C 
@@ FO 18 58 E498 @1 61 @1 G1 O1 G1 B1 B1 84 
E@ 68 67 76 E4A4G 61 G1 @1 @1 B1 G1 G1 B1 BC 
@7 63 88 OF E4A8 @1 G1 G1 O1 G1 B1 G1 B1 94 
88 CB 48 3E E4BQ @1 G1 G1 B1 G1 81 81 B1 GC 
48 08 87 AD E4B8 @1 G1 G1 G1 @1 G1 B1 B1 AA 
@7 64 BB 5? E4CQ@ @1 @1 G1 B1 G1 B1 B1 B1 AC 
@@ FO EB 97 E4C8 @1 @1 G1 @1 88 B@ BB BB Be 


168 ‘'Yattv74 

118 CLEAR: ,&HBDAF:DEFINT A-Z:SCREEN @,8@:CLS 2:WIDT 
H 8@,25:CONSOLE 22,3,8,8@:COLOR 6,8,8,7: RANDOMIZE V 
AL(MID$(TIME$,4,2)+RIGHT$(TIME$, 2)) 

128 DEF USR@=8HBFA@:DEF USR1=8HBF40:DEF USR2=8&HBE9 
@:DEF USR3=8HBE4@:DEF USR4=8HBE@8:DEF USR5=8HBDB¢: 
DEF USR6=8&HBDBF 

138 DIM MT$(13),MP(13),MN$(18),MN(18,6),TB(24,2),5S 
T(9.3),CL(09,2),.CK(7,7).€S(7,6).N(3),HV(1) 


2080 ‘PIER 

218 LINE(@,8)-(639,171).,B 

229 X=214:Y=1:XL248:YL#19:C=7:GOSUB #*BX 

238 X=16:Y22:RESTORE 301808:GOSUB *Gl 

240 FOR X=22 TO 58 STEP 4:GOSUB *G1:NEXT 

2580 X=56: RESTORE 361080:GOSUB *G1 

268 LINE(7,3)-(104,168),,B:X=1:Y=4:XL=12:YL2164:C= 
1:GOSUB *BX:LINE(503,3)-(632,.168),,B:X=63: XL=16:GO 
SUB *BX:LINE(111,23)-(496,168),,B 

368 ‘Vx 

318 LOCATE 27,5:PRINT"&*2 CHU 27>";SPC(8);:X=480: Y= 
36:P=58:GOSUB *G2:PRINT"7*2":LOCATE 24,7:PRINT"¥39 

no F99F> FF NO MMI" 

320 LOCATE 19,9:PRINT"F°€ %3#>";SPC(8);:X=30:Y=68 
SRESTORE 31008:GOSUB *G1:PRINT"hD 4nK FAHD NIFr 
yF":1OCATE 21,11: PRINT"Y/A 7% 3B F* HIDt¥r F 
5t4)+++":LOCATE 28,13:PRINT"9*HD b*OLTE TFe7tr" 
338 Y=116:FOR X=17 TO 52 STEP 5:P=62+4(X-17)/5:GO 
SUB *G2:NEXT: LOCATE 58,15:PRINT“=" 
340 LOCATE 19,17:PRINT"4yI\° 4 4yi\° 4 
-k YLno---": LOCATE 19,19: PRINT"4xz! 
2 Be P9257 BvIq42 

350 M$="CHUZ> 9 PAF PI*VAW CY or N)?":Q=1:GOSUB * 

QS:1F Q$="N" THEN CONSOLE @,25:CLS 3:END 

468 ‘LSeryvty v7 

410 M$="PUN*HO! KD FD VAIF ALM FLF-++ bIOF™ KF 
J) vevty 199 39 447 (20000R-1":MI$="40000R-2 6800 
0A-3 880000R-4 1800000R-5 120000AR-6 1480800AR-7 1 
600808: 8)?":Q=8:GOSUB *QS: RT! =200800%Q 

5Q0 '%"-h J yatt F°-F 1 

518 DY@=0:DY=!1 :HR@=99:HR=8:MI@=99:MI1=6:MY8! =999999 
':MY!=5000: PWO=999:HY8=999:HY=8: RTO! 2999999! 

52@ RESTORE 510080:FOR M1=@ TO 13:READ MT$(M1):NEXT 
:FOR M1=8 TO 180:READ MN$(M1):FOR M2=@ TO 4:READ MN 
(M1 ,M2):NEXT M2,MI1 

530 FOR Ml=@ TO 24:READ TB(M1,8@),TB(MI,1):NEXT: FOR 
M1=@ TO 9:READ ST(M1,6),ST(M1,1),ST(M1,2):NEXT 
5480 FOR M1l=@ TO 9:READ CL(M1,80),CL(ML,1):NEXT:FOR 

Ml=@ TO 7:READ CK(M1,@),CK(M1,1):NEXT 

55@ SL$="3233343536373839484142":FOR Ml=@ TO 2 

551 A=32+RND(1)*10:1F Ml=@8 THEN 553 ELSE B=@:FOR M 
2=@ TO Mi-1:I1F A=N(M2) THEN B=1 

552 NEXT: IF B=! THEN 551 

553 N(M1)=A:GOSUB 559:GOSUB 559:NEXT:FOR M1=6 TO 3 
554 A=32+RND(1)*10:B=@:FOR M2=@ TO 2:1F A=N(M2) TH 
EN B=1 

555 NEXT: IF B=1 THEN 554 ELSE GOSUB 559:NEXT: GOTO 
560 

559 SL$=SL$+RIGHT$(STR$(A),2): RETURN 

560 FOR M1=@ TO 3:READ N(MI1): NEXT 

708 '8°4an J YON TVF4 

718 C=8:GOSUB *CM:LOCATE 17,4:PRINT"#39 09 3BnD 7 
H° 449 J 29> WN BANE TyFIWIl" 

726 FOR M1=@ TO 13:X=19421#(M1 ¥ 7): Y=44+16%(M1 MO 
D 7):P=434+M1L:GOSUB *G2:LOCATE X+6,(Y¥+4)/8:PRINT MT 
$(M1):NEXT 

738 RESTORE 580100:FOR Ml=@ TO 13:READ MP(M1):MP(MI 
)=MP(M1)*¢(RND(1)+.5):LOCATE 32+21%(M1l ¥ 7),6+2%(MI1 
MOD 7):PRINT USING" ###A";MP(CM1):NEXT 

740 M$="D)7 29*> F* PYF EVAN CY or N)?":Q=1:GOSUB * 
QS: IF Q$="N" THEN 738 

758 C=@:GOSUB *CM 

8OB 83° -h J Lat¥F F°-F 2 

818 FOR M1=@ TO 10:FOR M2=8 TO 4:A=MN(M1,M2): IF A< 
>@ THEN MN(M1,5)=MN(MI,5)+MPCA-43) 

8280 NEXT M2,Ml1 

1000 ‘4Fx=F J N-FL 

1200 ‘4F¢=F% J Yat¥t 7-9 

1218 CX=2:CY=23:CD=2: AN=2: TW=8: TS=@:CL=0: PW=188:HV 
(8)=@:HV(1)=08: W=8 

1228 FOR M1=@ TO 24:TB(M1,2)=@:NEXT:TB(14,2)=27 
123@ FOR Ml=@ TO 9:ST(MI,3)=8:NEXT 

1248 FOR Ml=@ TO 7:POKE 8HE2E8+CK(M1,1)#12+CK(M1,0 
),14:FOR M222 TO 7:CK(MI,M2)=6:NEXT M2,M1 

1258 FOR M1=@ TO 7:CS(M1,0)=12:CS(M1,1)=38:CS(M1,2 
)=2:FOR M2=3 TO 6:CS(M1,M2)=0:NEXT M2,M1 

1268 FOR M1=@ TO 2:POKE &HE473+M1 #12, 21+M1:NEXT:OP 
=@ 

1400 ‘t*>942°-97 7 tAaDD™ 

1418 IF DY>1 THEN 1688 

14286 FOR Ml=2 TO 35:FOR M2=6 TO 11:P=PEEK(&HE2E8+M 
1*12+M2):IF P<3 THEN 1438 

1421 X=8+8"M2:Y=24+4eM1:1F P#3 THEN LINE(X,Y)-(X+7, 
Y+3),7,B:GOTO 14386 

1422 LINE(X,Y)-(X+7,Y+3),7,BF:1F P<>5 AND P<>6 THE 
N 1438 

von ENE S ele ere een eres 
+2), 

1438 NEXT M2,Ml1 

1588 ‘27-92-97 J tary 

1518 RESTORE 32008:Y=8:X=64:GOSUB #*G3:X=68:GOSUB * 

G3:X=70:GOSUB *G3:Y=26:X=68:GOSUB *G3:X=74:GOSUB * 
G3: Y=44:X=64:GOSUB *G3:X=66:GOSUB *G3:X=68:GOSUB * 


FFEBVF6 +s OO 
t2n°411 wD 


EPC-88012/'J—X*CHUBOBRRE” JOTI LIAR MR1IBN—Y) 


G3:Y=66:X=76:GOSUB *G3:Y=78:X=64:GOSUB *G3:X=66:GO 
SUB *G3:X=76:GOSUB *G3 

1520 Y=96:X=64:GOSUB *G3:X=66:GOSUB *G3:RESTORE 32 
118:X=76:GOSUB *G3:RESTORE 32140: Y=114:X=64:GOSUB 
*G3:X=66:GOSUB *G3:Y=132:X=64:GOSUB *G3:X=66: RESTO 
RE 32078:GOSUB *G3:Y=148:X=76:RESTORE 328688: GOSUB 
*#G3 

16080 ‘270-W-Wyv7® , CHUZY, AF-9A J EADT~ 

1618 GOSUB *DA:GOSUB *DC:GOSUB *DY:GOSUB *TM: IF DY 
=1 THEN GOSUB *MY 

162@ GOSUB *PW:GOSUB *HY:GOSUB *HV: IF DY=1 THEN GO 
SUB *RT 

17060 ‘'4>n°7 

1718 ON DY GOTO 17280,1730.1748 

1728 RESTORE 48188:GOTO 1758 

1738 RESTORE 48280:GOTO 1758 

1748 RESTORE 48380 

1758 GOSUB *PM 

1800 ‘x=2- Fw74 

1818 IF DY=1 THEN M$="%P! 22° x=2- 9 YANRLad!":GO 
SUB *CF ELSE Q=1:M$="X%=2- 9 YAYNLYAN (CY or N)?":GO 
SUB *QS: IF Q$="N" THEN 286086 

1820 C=3:GOSUB *CM:RESTORE 340080:Y=32:FOR X=3@ TO 
42 STEP 4:GOSUB #*G1 :NEXT:LINE( 232, 48)-(128,480),5:°L 
INE(128,40)-(128,152),5:LINE(128,152)-(486,152),5: 
LINE(48@,152)-(480,480).5:LINE( 480, 48)-(376,480),5 
1830 FOR Ml=@ TO 10:X=18+14"(M1 ¥ 4): Y=56+24%(M1 M 
OD 4):P=32+M1:GOSUB *G2:LOCATE X+5,Y/8:PRINT MN$(M 
1):GOSUB 1958@:NEXT 

1858 M$="bk*7 xx=2- 7 AIVAN (3-t--: 1 


DFr-2 b-Abk-3 


HRTF 4 EMTS ML-F1A-6 ALLY 7" IMI G="999" +B 
Ry bh -¥°9  -7-¥ 18 PAAAN-L-11)7"2Q=11:GOSUB *QS:Ml 
=Q-1 


1868 M$=MN$(M1)4" = YAO B°4adD 7 249° YD J DOTA W'S 

TRS(MN(M1,5))¢"R F°A":MI$=MN$(M1)+" = 479(R) 7 49~ 

> I YIIAnW (86-3008 , O-t5)7?":Q28:M=3008:GOSUB *QS:M 

N(M1,6)=Q:GOSUB 1958 . 

1878 Q!=0@:FOR Ml=@ TO 10:Q!=Q!+MN(M1,6):NEXT: IF Q! 

=@ THEN 1858 

1888 M$="xX=2- Y°7) F YY *7WAH (CY or N)?":Q=1:GOSUB 

“QS: IF Q$2"Y" THEN 1858 ELSE C#@#:GOSUB *CM:GOSUB * 

DA:GOSUB *DC:GOTO 20868 

195@ LOCATE 25+14#(M1l ¥ 4),8+3%(Ml MOD 4): IF MN(MI1 

»6)=@ THEN PRINT" t>":RETURN ELSE PRINT USING" ## 

##7A">MN(M1,6) 2 RETURN 

2808 ‘CHUJD / N-F> 

2018 L=6:TT=8 

28620 T=O0:M$="%F Fo JF LAAN (HIVDOFITAY,Ab*9O- 1 F2994> 

2 YI9+3  49%+4)7":Q=4:GOSUB *QS: IF Q=4 THEN 3608 

ELSE ON Q GOSUB *MV,#RS, *OT: TT=TT+T: TW=TW+T: TS=TS+ 

T: IF T>@ THEN MI#*MI+#T:GOSUB *TM:PW=PW-T:GOSUB *PW: 

L=L+l 

26380 IF TW>18@ THEN TW28:S=2:M$="2F9 &7753a. FTE 

yh 37 PIAFHT! | Dr4e{ ¥*Y*!!1":GOSUB *CF:S=2:M$="i\"¥ 

> 9 10800R OL! AtLa+++":GOSUB *CF:PR=1008:GOSUB 

*BY:HY=HY-18:GOSUB *HY 

20480 IF TS>45@ THEN TS=@:S=2:M$="P/- 99 J EJ FAN” 
492 J VENA ND P7729 N~ AWAIT KIVIA = Ty bh FXY 

¥.":GOSUB *CF:S22:M$=")\"¥¥> 1) 1880R ¥* YOxr*2.":GOS 

UB *CF:PR=18808:GOSUB *BY:HY=HY-18:GOSUB *HY 

2058 IF HR>21 OR CL=1 THEN 22080 

2106 IF L=15 THEN 30808 ELSE 2028 

2200 FOR M1l=@ TO 49:GOSUB *S1:NEXT:M$="¥89 7 Ya*Fb 

NoabY7*! aYALHy 11": GOSUB *CF: X=CX: Y=CY:GOSUB #*ES: 

CX=2:CY#31:CD#3:AN#3:GOSUB *DA:GOSUB *DC:GOSUB *TG 

23080 KN=8:FOR M1=@ TO 7:1F CS(M1,3)=14 THEN KN=MI1 

2318 NEXT: IF KN<8 THEN S=2:GOSUB 2378 

2328 FOR KN=6@ TO 7:GOSUB 23380:NEXT:GOTO 248686 

233@ X=CS(KN,@):Y=CS(KN,1):GOSUB *EK: IF CS(KN,3)<7 

OR CS(KN,3)>14 THEN RETURN 

2340 CS(KN,@)=4:CS(KN,1)=31:CS(KN,2)#2:GOSUB *DK:S 

=2:0N CS(KN,3)-6 GOTO 2358,2358,2355, 2368, 2365, 236 

5,2378,2378 

2358 M$="VP9~ ve =E YAFII Ja=--> 

UB *CF:GOTO 2375 

2355 M$S="V9* F29EDY E YFIL J=-:- 

SUB *CF: GOTO 2375 

2360 M$="V¥* Na9) E #74 J=-s> 

UB *CF: GOTO 2375 

2365 M$="VP7* YaO) JayvFIh Ja-:- 

UB *CF: GOTO 2375 

2378 IF CS(KN,5)=@ THEN GOSUB *P2 ELSE M$="4n4% i\ 4 

¥¥ N9993h!":GOSUB *CF 

2375 GOSUB *EK 

2386 IF CS(KN,3)=7 OR CS(KN,3)=8 OR CS(KN,3)=14 TH 

EN 2398 ELSE FOR M1=@ TO 9: IF ST(M1,3)=KN THEN B=M 

1 

2385 NEXT:S1T(B,3)=8 

2398 CS(KN,@8)=12:CS(KN,1)=38:CS(KN,2)22:CS(KN,3)=8 

> RETURN 

2468 GOSUB *TG: RESTORE 318020: X=4:Y=#31:GOSUB #*G9:S= 

2:DY=DY+1:1F DY=4 THEN 25086 

24186 M$="9r! Leyty NIDF EDAON! 


nN*X W NDIA! "2 GOS 
nk W NIIFTA!":GO 
ane W NIITTA!": GOS 


Bn&% W NDIITA!": GOS 


AIYT* ES NEAT VS N 


LISTLOG 271 


6IPC-8801>'J—A* CHUB OBRE’ JOTI LIAR (R1GBNK—Y) 


VIbF73B. BRT J BOF tots ¥* UI": GOSUB #*#CF 

2426 1F MY!=6 THEN M$="biy 497E kx {FEDIY Nees Fy 
b 49 ay¥y!"2GOSUB *CF:RT!=RT!#1.1:GOTO 2608 ; 
24386 PRINT: PRINT: GOSUB *S1:INPUT"479 hiss JUN (vay 

“> 474)7 ",Q$:CLS:Q!'=INT(VAL(Q$)): IF Q!<=@ THEN 2 
430 ELSE IF Q!>MY! THEN M$="9Y97! Yot= EvFtt Ue 

Ythn!'":S=2:GOSUB *CF:GOTO 2438 ELSE MY!=MY!-Q!:RT! 
=RT!-Q!:GOSUB *MY 

2458 GOTO 2688 

2508 M$="#39 NV 3A 7 F37> FR. HILT FH PINS LTD 

2D FoF YVAIOL AYF =E NID~ H* PHe~!!"3:GOSUB *CF 

2516 IF MY!>=RT! THEN MY!=MY!-RT!:RT!=@ ELSE, RT!=R 

T!-MY!:MY!=8 

2528 GOSUB *MY 

26080 X=4:Y=31:P=8@:GOSUB *G6:GOSUB *RT 

26186 M$="Pl¥9 NW FLY* (6-12) = Dah F ND KN?" Q=O:MEl 
2:GOSUB #*QS:I1IF Q<6 THEN 2618 ELSE HR=Q:MI=8@:GOSUB 

*TG:X=CX: Y2CY:GOSUB *ES:GOTO 186808 

3000 ‘%¥r7ty / W-Fr 

3018 IF L=@ THEN 2068 ELSE GOSUB *S1:PRINT"4#¥7%v 

JF G-y FO Rees” 

386286 FOR KN=@ TO 7:T=8 

36838 ON CS(KN,3) GOTO 318080,328080,33808,3408,3500, 3680 

8,3700,3800,398680,46800,4188,42080,4300,4400, 4506, 460 
8,47080,4808,4908,5000,5100,5200,5308 

3058 IF RND(1)<.5 THEN 5968 ELSE XM=11:YM=38:GOSUB 
*DU: IF B=l THEN YM237:GOSUB *DU: IF B=1 THEN YM=39 
>GOSUB *DU: IF B=1 THEN 5988 

3868 CS(KN,3)=1:CS(KN,8)=XM:CS(KN,1)=YM:GOSUB *DK: 

GOSUB *TG 

3168 XM=16:YM=38:GOSUB *D1: IF B=1 THEN 59886 ELSE C 

S(KN,3)=2:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)=YM: GOSUB 

*DK:GOSUB *TG:T=T+1: IF T>=TT THEN 5968 

3288 XM=8: YM=38:GOSUB #D1:IF B=1 THEN 598@ ELSE CS 
(KN,3)=3:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)=YM:GOSUB * 

DK:GOSUB *TG:T=T+1: IF T>=TT THEN 59808 

3360 XM=6: YM=38:GOSUB *D1:IF B=1 THEN 5988 ELSE CS 
(KN,3)=4:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)2YM:GOSUB * 
DK:GOSUB *TG 

3408 XM=5:YM236:GOSUB *DI:IF B=1 OR OP=@ OR RND(1) 

*18@>HY THEN 3458 

3418 CS(KN,3)=5:GOSUB *EK:CS(KN,8)=XM:CS(KN,1)=YM: 

CS(KN,2)=8:GOSUB *DK:GOSUB *TG:GOTO 34986 

3458 XM=3: YM=38:GOSUB *D1: IF B=1 THEN 598@@ ELSE CS 
(KN,3)=17:GOSUB *EK:CS(KN,®)=XM:CS(KN, 1)=YM:GOSUB 
*DK:GOSUB *TG 

3498 T=T+2:1F T>=TT THEN 5988 ELSE 38638 

3568 XM=5: YM=34:GOSUB *D1: IF B=! THEN 596@ ELSE CS 
(KN,3)=6:GOSUB #EK:CS(KN,@)#XM:CS(KN,1)=YM:GOSUB * 

DK:GOSUB *TG 

3608 XM=5:YM=32:GOSUB *D1:IF B=1 THEN 5908 ELSE CS 
(KN,3)=7:GOSUB #EK:CS(KN,@)=XM:CS(KN,1)=YM:GOSUB 
DK:GOSUB #*TG:T=T+1: IF T>=TT THEN 5968 

37806 XM=5:YM=38:GOSUB *D1: IF B=1 THEN 5988 ELSE CS 
(KN, J3)=8:GOSUB #EK:CS(KN,@)=XM:CS(KN,1)=YM:GOSUB * 

DK: GOSUB *TG 

38686 B=18:FOR Ml=@ TO 9:N=RND(1)*9:1F ST(N,3)=8 AN 

D TB(15+N,2)286 THEN B=N 

38140 NEXT: 1F B=18 THEN 38580 

3828 CS(KN,3)=9:GOSUB #EK:ST(B,3)=KN:CS(KN,@)=ST(B 
»8):CSC(KN,1)2ST(B,1):CS(KN,2)=ST(B,2):GOSUB *DK:GO 

SUB *TG:CS(KN,4)=HR*686+MI:GOTO 3898 

3858 XM=6:YM=32:GOSUB *D1:IF B=1 THEN 5988 ELSE CS 
(KN,3)=28:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)=YM:CS(KN, 
2)=1:GOSUB *DK:GOSUB #*TG 

3890 T=T+1:IF T>=TT THEN 5908 ELSE 38638 

3988 GOTO 59886 

40806 GOTO 5988 

4188 P=28:GOSUB *TC:1F AN=3 THEN GOSUB *G4:GOSUB * 


4116 CS(KN,3)=#12:T=T+18+RND(1)*18:1F T>=TT THEN 59 
4208 P=29:GOSUB *TC:1F AN=3 THEN GOSUB *G4:GOSUB * 
4216 CS(KN,3)=13: f=T+18+RND(1)*#18:1F T>=TT THEN 59 


4308 XM=4:YM231:GOSUB *DU: IF B=! THEN 5908 

4318 FOR Ml=@ TO 9: IF ST(MI,3)=KN THEN B=M1 

4328 NEXT: ST(B,3)28:CS(KN,3)#14:GOSUB *EK:CS(KN,®@) 
=4:CS(KN,1)=31:CS(KN,2)=2:GOSUB *DK:GOSUB *TG: IF C 
S(KN,5)=1 THEN 43486 ELSE IF CX=2 AND CY=31 AND CD= 
3 AND HY<>@ THEN GOSUB *P2:GOTO 4348 

4338 IF MN(CS(KN,6)-32,6)/MN(CS(KN,6)-32,5)>4 THEN 
4348 ELSE IF AN*3 AND RND(1)<.9 THEN GOSUB *P2 
4348 T=T+1:1F T>=TT THEN 5988 

4400 XM=4:YM=34:GOSUB *D1:IF B=! THEN 5908 ELSE CS 
(KN,3)=15:GOSUB *EK:CS(KN,@)=XM:CS(KN.1)=YM:CS(KN, 
2)=1:GOSUB *DK 

4416 IF CS(KN,5)=@ THEN GOSUB *S2:PRINT" ¥y! 
iid Sa 

4426 CSCUKN,5)=8:CS(KN,6)=0:GUSUB *TG:CLS 
4506 XM=4:YM=36:GOSUB *D1:I1F B=1 THEN 5988 EI.SE CS 


Pq=5™ 
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(KN, 3)816:GOSUB xEK:CS(CKN,@)=XM:CS(KN, 1 )=YM:GOSUB 
*DK:GOSUB *TG 

4608 XM=3: YM=38:GOSUB *D1:1F B=! THEN 594#@ ELSE CS 
(KN,3)=17:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)=YM:CS(KN, 
2)=2:GOSUB *DK:GOSUB *TG:T2T+1:iF T>=TT THEN 5988 
4786 XM=1:YM=38:GOSUB *DI:IF B=1 THEN 59808 ELSE CS 
(KN.3)=18:GOSUB *EK:CS(KN,@)=XM:CS(KN, 1)=YM: GOSUB 
*DK:GOSIIB *TG:T=T+1:1IF T>=TT THEN 5988 

4808 XM=6@:YM=38:GOSUB *DU: IF B=1 THEN YM=37:GOSUB 
*DU:1F B=l THEN YM=39:GOSUB #DU:1F B=1 THEN 5988 
4818 CS(KN,3)=19:GOSUB #*EK:CS(KN,@)=XM:CS(KN,1)=YM 
:GOSUB *DK:GOSUB *TG 

49808 CS(KN.3°=8:GOSUB *EK:CS(KN,@)=12:CS(KN,1)=38: 
CS(KN, 2)=2:CS(KN, 4)28:CS(KN,5)=8:CS(KN,6)=68:GOTO 5 
900 

5000 XM=6: YM=34:GOSUB *D1I:IF B=1 THEN 5980 ELSE CS 
(KN,3)=21:GOSUB *EK:CS(KN,@)=XM:CS(KN, 1)=YM: GOSUB 
*DK:GOSUB *TG 

5100 XM=6:YM=36:GOSUB *D1:IF B=1 THEN 5988 EL.SE CS 
(KN,3)=22:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)=YM: GOSUB 
*DK:GOSUB *TG.T=T+1:1F T>=TT THEN 5988 

5208 XM=5: YM=38:GOSUB *D1:IF B=1 THEN 5988 ELSE CS 
(KN,3)=23:GOSUB #EK:CS(KN,@)=XM:CSCKN, 1)=YM: GOSUB 
*DK:GOSUB *TG 

5300 XM=3: YM=38:GOSUB «D1: IF B=1 THEN 598@ ELSE CS 
(KN,3)=17:GOSUB *EK:CS(KN,@)=XM:CS(KN,1)=YM:CS(KN, 
2)=2:GOSUB *DK:GOSUB *TG:T=T+1: IF T>=TT THEN 5908 
ELSE 38030 

596086 NEXT 

8808 ‘'1°# 

88018 B=8:FOR M1=@ TO 9: IF TB(M1,2)>31 AND TB(M1,2) 
«57 THEN B=1 

8820 NEXT: IF B=@ THEN 20808 ELSE IF RND(1)<.3 THEN 
2608 

8188 CLS:GOSUB #*S2:PRINT"32°47°9 wA* LY F PHI NDEF 
7 PV Ds" 

811@ FOR M2=8 TO 4:FOR M3=@ TO 1:M1=M2+M3%"5:1F TBC 
M1,2)<32 THEN 89086 

8126 IF TB(M1,.2)<43 THEN Q$=MN$(TB(M1,2)-32) ELSE 
Q$=MT$(TB(M! ,2)-43) 

81380 IF AN=@ THEN X=14+TB(MI,0)#4:Y=24+TB(M1,1)*16 
>RESTORE 388008:GOSUB #G1:BEEP(1):BEEP(@) 

8148 X=180+TB(MI1 ,6)*8: Y=5¢+¢TB(M1,1)*4:LINE(X,Y)-(X+4+3 
»Y+#1),3,BF:TB(M1,2)=68:GOSUB *S2:PRINT “Pwr ";Q$; 
" NW 9x1-":GOSUB *TG:GOSUB *TG 

815@ IF AN=@ THEN X#TB(M1,@):Y=TB(MI1,1):P=4:GOSUB 
*G6 

8160 X=180+TB(M1 ,6)#8:Y=5+TB(MI,1)*4:LINE(X,Y)-(X+3 
s¥*l),.7.BF 

8980 NEXT M3,M2:M$="PR! %7hY¥! 
*"GOSUB *CF:GOTO 26086 

9008 *ED: X=CX: Y=CY:GOSUB *ES:CX=5:CY235:CD=1:AN=4: 
GOSUB *DA:GOSUB *DC:1F F=6 THEN FOR M1=@ TO 9:GOSU 
B *#SI1SNEXT: M$="PY9%! YeryFt> L°L7” nivysa!! JAITF AL 
F RLb= PUA bO!E! "> GOSUB *CF: RESTORE 484800:GOSUB *P 
M:M$="€949n4 PyF EW (CY or N)?": GOTO 9188 

9818 ON F GOTO 9828,9038,9848,98050 


WF QA!! 3a 43°F 


9028 M$="Pr--s ANH FI>D NX RETH Jr HK FHP! "IG 
OTO 9868 

9838 M$="3/) 249° NP J BOT YevyF¥v-- EX 9 xkXH* 11" 3 GOT 
0 9668 

9848 M$="AtAF- ++ FND MN RIF YI9¥! EOD P-xH9y!1"2GO 
TO 9868 


98058 M$="VOK- +) FE N™ YO 49 FI PHIRKAON- ++ DH'F™ 
JeE~ FE FIO +2" 

98680 S=2:GOSUB *CF: IF F ¥ 3=6 THEN RESTORE 36008 E 
LSE RESTORE 378808 

9676 X=42:FOR Y=48 TO 72 STEP 16:GOSUB *G8:NEXT:RE 

STORE 48588:GOSUB *PM:M$="€94Fb* CHUJD b F*F4LIZH 
(Y or NY?" 

9188 Q=1:GOSUB *QS:1F Q$2"Y" THEN RUN ELSE CONSOLE 
@,25:CLS 3:END 

188008 ‘SI"h-F> 

a *S1:FOR S1=8@ TO 20:BEEP(1):NEXT: BEEP(@) : RETU 
18268 *S2:FOR Sl#@ TO 99: BEEP(1):BEEP(@) :NEXT:RETU 

RN 

18308 *BX:POKE &HBF9@,X:POKE &HBF84,Y:POKE &HBF44, 
XL.:POKE &HBF46,YL:POKE &HBF48,C: A=USRI(@): RETURN 
18648686 *G1:FOR S1=8 TO 95:READ M$:POKE &HE4D@+S1,VA 

L("8H"+M$):NEXT:POKE &HBE94,8&HE4:POKE &HBES6, &HDO 
18418 POKE &HBF98,X:POKE 8&HBF84,Y:A=USR2(@): RETURN 
185080 *G2:M$=HEX$(&HCO80+96*P):POKE &HBE94,VAL("&H 
“+LEFT$(M$,2)):POKE &HBE96, VAL("&H"+RIGHT$(M$,2)): 

GOTO 16418 

18660 *G3:FOR S1=6@ TO 31:A=8HE4D0+S1*#3:READ M$: POK 

E A,&HFF:POKE A+tl,VAL("8&H"+M$):POKE A+2,VAL("8&H"+M 
$) >: NEXT 

10616 POKE &HBF98,X:POKE &HBF84,Y:A=USR4(6): RETURN 
16768 *G4:M$=HEX$(8HCOB8+P*96):POKE &HBDBI,VAL("&H 
"+LEFT$(M$,2)):POKE 8&HBDB3,VAL("8&H"+RIGHT$(M§$,2)): 

POKE &HBDC3, PEEK ( 8HEZEO+ Y*1 2+X) > A=USR5(6) 


1807180 POKE &HBF96,14+4*X:POKE &HBF84, 24+16%(Y-AN#8 
):;POKE &HBES4,8&HE4:POKE &HBE9G6, &HD@: A=USR2(8):RETU 
RN 

188086 *G5:POKE 8&HBEA4,1:POKE &HBES4,8&HE4:POKE &HBE 
96.8HD#@:POKE &HBF84,.Y:POKE &HBED6, &H4E: Q$=STRING§$( 
Q+1-LEN(STR$(Q!)), "8" )+STRE(Q!):MI$=STRING$(Q4+1-LE 
N(STR$(P!1)), "8" )+STRS(P!) 

198180 FOR Sl=!1 TO Q:1F MID$(Q$,S1+1,1)=MID$(M1$,S1 
+1,1) THEN 1869380 ELSE ON VAL(MID$(Q$,S1+1,1)) GOTO 
16830,108480,10858,10868,10878, 186880, 10898, 18908, 1 

8918 

16820 RESTORE 338008:GOTO 169286 

18838 RESTORE 33618:GOTO 16928 

180848 RESTORE 338028:GOTO 1809286 

18858 RESTORE 338030:GUTO 186920 

168680 RESTORE 334646:GOTO 189286 

18878 RESTORE 33650@:GOTO 18926 

188880 RESTORE 33668:GOTO 18928 

18898 RESTORE 338078:GOTO 16926 

18988 RESTORE 33688:GOTO 189280 

16918 RESTORE 330986 

10920 FOR S2=8 TO 15: A=8HE4DO+S2*3: READ M$: POKE A, 

&HFF:POKE Atl. @:POKE A+t2,VALC"8H"+M$) > NEXT: POKE &H 

BF9#8,X:A=USR2(8) 

18938 X=X+2:NEXT:POKE &HBEA4,2:POKE &HBED6, &H4C:M1 

$="": RETURN 

11808 *G6:X=14+4"X: Y=2=24+16"(Y-AN#®8):GOTO *G2 

11106 *G7:FOR S1=8 TO 31: A=8HE4D0+S1%3:READ M$: POK 

E A,®@:POKE At1,VAL("8H"+M$):POKE A+2,VAL.("8&H"+M§$): 

NEXT: GOSUB *S1:GOTO 18618 

112060 *G8:FOR S1=@ TO 31:A=8&HE4D8+S1*3:READ M$: POK 

E A, VAL(C"&H"+M$):POKE A+1,8HFF:POKE A+2,VAL("8&H"+M 

$):NEXT: GOTO 186418 

11300 *G9:FOR S1=@ TO 95:READ M$: POKE &HE4D86+S1,VA 

L("8H"+M$):NEXT:POKE &HBDC3,@:A=USR6(@):GOTO 186718 
120080 *QS:GOSUB *CK:GOSUB *S1 

128018 CLS: PRINT M$:PRINT MI$: INPUT "bk°920? ",Q$:CL 

S:Q!=INT(VAL(Q$)) 

120280 IF Q=@ THEN IF Q!<@ OR Q!>M THEN 12618 ELSE 
12056 

12038 IF Q=1 THEN IF Q$="Y" OR Q$="N" THEN 12658 E 

LSE 12018 

12040 IF Q'!<1 OR Q!>Q THEN 128618 

12858 Q=Q! :M$="":MI$="":RETURN 

12108 *CM:CONSOLE 4,16:CLS: CONSOLE 22,3:CLS:X=14:Y 

=24:XL=48: YL.=144:GOSUB *BX: RETURN 

12206 *PM:S1=86 

12218 READ M$: POKE &HE4D8+S1,VAL.("&H"+M$):S1L=S1¢41: 
IF M$<>"" THEN 122180 ELSE A=USR@(@) >: RETURN 

12368 *CF:GOSUB *CK: 1F S=2 THEN GOSUB #*S2 ELSE GOS 

UB *S1 

12318 CLS:PRINT M$:PRINT: COLOR 2:PRINT"(US-> ¥-] F 

* 84 Ss 2REI2"; ;COLOR @ 

12328 Q$=INKEY$: 1F Q$=CHR$(13) THEN CLS: M$="":S=1: 

RETURN ELSE 123286 

12460 *CK: Q$=INKEY$: 1F Q$="" THEN RETURN ELSE *CK 
12560 *DU:B=8:1F XM=CX AND YM=CY THEN B=1: RETURN E 

LSE FOR S1=@ TO 7:1F XM=CS(S1,80) AND YM=CS(S1,1) T 

HEN B=] 

125186 NEXT: RETURN 

125586 *D1:S2=@:X=XM:Y=YM 

12560 XM=X+RND( 1 )#2-1:YM=Y+RND(1)#2-1:GOSUB *DU: IF 
B=@ AND PEEK(&HE2E@+YM#12+XM)<2 AND YM<39 THEN RE 

TURN 

12578 S2=S2¢1:1F S2=18 THEN B=1l:RETURN ELSE 12568 
126060 *RJ:S=2:M$="39F"N F°FVe>":GOSUB *CF: RETURN 
12708 *SN:FOR S1=@ TO N(C):ON C GOTO 127286,127386,1 

2748 

12716 IF TB(S1,8)=OX AND TB(S1,1)=0Y THEN N=S1: GOT 

QO 12758 ELSE 12758 

12726 IF ST(S1,80)=0X AND ST(S1,1)=OY THEN N=S1:GOT 

O 1275@ ELSE 12758 

12730 IF CL¢S1,0)=O0X AND CL(S1,1)=OY THEN N=S1:GOT 

O 1275@ ELSE 12758 

12748 IF CK(S1,8)=OX AND CK(S1,1)=OY THEN N=SI1 
12758 NEXT:RETURN 

12800 *BY:MY!=MY!-PR:1F MY!<8 THEN M$="S9UF47I*> NZ 

y PHL HIFD J EMD MN NYVFALIDV. = Pri rHyreli'":Go 

SUB *CF:RT!=RT!-MY!:MY!=@:GOSUB *MY:GOSUB *RT:RETU 

RN ELSE GOSUB *MY: RETURN 

1298686 *TG:FOR S3=8 TO 999:NEXT: RETURN 

130080 *P1:KN=8:FOR S3=@ TO 7: 1F CS(S3,0)=4 AND CS( 

S3,1)=31 THEN KN=S3 

13018 NEXT: 1F KN=8 THEN S=2:M$="9"°LE 474! !":GOSUB 

*CF:T=T-1:RETURN ELSE IF CS(KN,5)=1 THEN S=2:M$="€ 

4) NovVALI"  :GOSUB *CF:T=T- 1: RETURN 

13020 *P2:S=1:A=MN(CS(KN,6)-32,5):B=MN(CS(KN,6)-32 
»6):MY!=MY!+B:Q!'=3-B/A: ITF Q!'>1 THEN M$="PATK!I "CF! 

=1.5 ELSE IF Q!>0 THEN M$="VrPVP J £9°D HT--- "SFl=l 
ELSE S=2:M$="197 9n{T--> RO) 9° Yr TI" Fl=18 

13030 HY=HY+Q! *F! x1 O:M$="4NK Daz 47a!l “+M$:GUSUB 

*CF: ITF Q'>.5 AND RND(1)<.5 AND OJ=12 THEN MY!=MY! + 


EIPC-8801>/'J—A* CHUB OBRRE” JOTI LIAR MR1IBN—-Y) 


200%Q!'*(RND(1)+.5)+600%47%(RND(1)+.5)/MN(CS(KN,6)- 


32,.5):M$="415N9v- ++ AL Fy7*! “YN 7411" GOSUB * 
CF 

13040 GOSUB *MY:GOSUB *HY:CS(KN,5)2=1:CS(KN,6)=6:RE 
TURN 


13106 «TC: FOR Sl=6 TO 9:IF ST(S1,3)=KN THEN N=S1 
13116 NEXT: X=TB(N+t15.80): Y=TB(N+15,1):°:TBCN415,2)=P: 

RETURN 

140060 *DA:POKE &HBE44,AN:A=USR3(8) 

14810 FOR S1=8 TO 24: 1F TB(S1,1)>=AN*8 AND TB(SI,1 
)<=AN*8+8 AND TB(S1,2)<>@ THEN X=TB(S1,@):Y=TB(SI, 
1):P=TB(S1,2):GOSUB *G4 

14020 NEXT:FOR KN=@ TO 7:S=86:GOSUB *DK: NEXT: RETURN 
148058 *DK:X=CS(KN,@):Y=CS(KN.1):1F X<12 AND Y>=AN* 

8 AND Y<=AN*8+8 THEN P=61+4#KN+CS(KN,2):GOSUB *G4: 
IF S=1 THEN BEEP(1):BEEP(@) 

140680 IF X<12 THEN X=16+X#8: Y=5+Ye4:LINE(CX,Y)-(X+3 
‘¥+19,3, BF 

14878 S=1:RETURN 

14108 *DC:X=CX: Y=CY:P=57+CD:GOSUB #G4:X=16+8#xX:Y=5 

+4"Y:LINE(X,Y)-(X+3,Y+1),5,BF:0X=CX:OY=CY:ON CD GO 

TO 141280,14138,14148 

14118 OY=OY-1:GOTO 141580 

14126 OY=OY+1: GOTO 14158 

14138 OX=OX-1:GOTO 14158 

14146 OX=OX+1 

14158 OJ=PEEK( &HE2E8+OY*12+0X) > RETURN 

158000 *DY:X=66: Y=8:Q!=DY:P!=DY8:Q=1:GOSUB *G5:DY@= 

DY: RETURN 

151080 *TM:I1F MI>59 THEN HR=HR+1:MI1=M1-68 

15118 Y=26:Q=2:1F HR<>HR® THEN X=64:Q!=HR:P! =HROB:G 

OSUB *G5 

15120 X=70:Q!'=MI:P!=MI1#6:GOSUB *G5:HR@=HR:MI@=MI:RE 

TURN 

15200 *MY:MY!=INT(MY!):1F MY!>=1E+@6 THEN MY!=9999 

99! 

152180 X=64:Y=60:Q!=MY!:P!=MY@8! :Q=6:GOSUB *G5S:MY#!= 

MY! : RETURN 

15308 *PW: IF PW>188 THEN PW=188 ELSE IF PW<® THEN 

Pw=8 

15318 X=70:Y=78:Q!=PW:P! =PW8@:Q=3:GOSUB *G5:PWH=PW: 
IF PW=@ THEN F=3:GOTO *ED ELSE RETURN 

15400 *HY: IF HY>I1@6 THEN HY=108 ELSE IF HY<@ THEN 

HY=8 

15418 X=70:Y=96:Q!=HY:P! =HY@:Q=3:GOSUB *G5:HY#@=HY: 
RETURN 

15500 *HV:FOR S3=8 TO 1:X=786+48S3:Y=114:1F HV(S3)= 
@ THEN XL=4:YL=16:C=8:GOSUB *BX ELSE P=HV(S3):GOSU 
B *G2 

15518 NEXT: RETURN 

15600 *RT:RT!=INTOCRT!):1F RT! >=1E+86 THEN RT! =9999 
99! ELSE IF RT!<® THEN RT! =8 

15618 X=64:Y=148:Q!=RT!:P!=RT@! :Q=6:GOSUB *G5:RT#! 
=RT! 

15620 [F RT!=8 THEN F=@:GOTO *ED ELSE IF DY=4 THEN 
F=1:GOTO *ED ELSE IF RT!=999999! THEN F=2:GOTO *E 
D 

15639 IF MY!=8 THEN M$="t9 PHF9X9D BOOT > YAaD CY or N 
)?":Q=1:GOSUB *QS: IF Q$="Y" THEN F=4:GOTO #*ED 
156486 RETURN 

16600 *ES: IF X<12 THEN X=10+8*X:Y25+4"Y:LINE(X,Y)- 
(X43 Ye 2,1. BF 

16018 RETURN 

16180 *EK:X=CS(KN,@6):Y=CS(KN,1):1F X<12 AND Y>=AN* 
8 AND Y<=AN¥#8+8 THEN P=PEEK(8&HE2E8+Y#12+X):GOSUB * 
G6 

16118 X=CS(KN,@):Y=CS(KN,1):GOTO *ES 

165086 *MV:GOSUB #*S1:PRINT"CHUZ> 44°% J #--YOU (U9- 
2 &s#°)-4 =FF*-G BIB FT9)-5)" 

16688 GOSUB #*CK 

166180 IF INP(#@)=8HDF THEN 1 
166280 IF INP(@)=8HFB THEN B 
16630 IF INP(@6)=8HEF THEN B 
16648 IF INP(@)=8HBF THEN 
16658 IF INP(1)=8HFE THEN B=8:GOTO 16788 

16668 GOTO 16618 

16768 IF B<>CD THEN CD=B:GOSUB *DC:GOTO 16608 
16718 XM=OX: YM=OY: IF OJ>2 OR YM<@® OR YM>48 OR XM<®@ 
OR XM>11 THEN 16688 ELSE GOSUB *DU: IF B=1 THEN 16 
680 

16880 X=CX:Y=CY: P=PEEK(&HE2E@+CY#12+CX):GOSUB *G6: 
X=CX:Y=CY:GOSUB *ES:CX=XM:CY=YM:B=YM ¥ 8: IF B=5 TH 
EN B=4 

16818 IF B=AN THEN 16858 

16811 IF CD>1 THEN 16828 

16812 IF CD=1 THEN 16814 

16813 AN=B:GOSUB *DA:CY=CY+1:GOSUB *DC:BEEP(1):BEE 
P(@):GOSUB *TG: X=CX: Y=CY:P=@:GOSUB *G6:X=CX:Y=CY:G 

OSUB *ES:CY=CY-1:GOTO 16858 

16814 GOSUB *DC: BEEP(1):BEEP(@) 

16820 AN=B:GOSUB *DA 

16858 GOSUB *DC: BEEP(1):BEEP(@):W=W+1:GOTO 16688 


1:GOTO 1678086 
2:GOTO 16788 


LISTLOG. 273 


6IPC-8801>'J—A* CHUB OBRE’” JOTI LIAR (HR19BN—Y) 


1698080 T=W ¥ 38:W=W MOD 36 

16918 CLS:GOSUB *CK: RETURN 

178868 *RS:M$="b°LI~ 709) PAEVAN (B-15)7"2Q2B:M=15:G 

OSUB *QS: T=Q:PW=PW+T#3.5: RETURN 

1758086 *OT:M$="F7") F= FD YIAH ChM-1 T7,4LN-2 FY 

3 Afyt+4 FAOVVKD F YVIVTH- 5 FF PIG" MI$2"3e* Iz 
*7) 4NK L1¥29-°8  bN7Y-9)7":Q=9:GOSUB *QS: IF Q=9 TH 

EN RETURN: ELSE ON Q GOSUB *TK,#PT,#*TL,#SW, #*LK, WS, 

*CL.,*RG: RETURN 

18860 *TK: IF HV(@)>8 AND HV(1)>@ THEN M$="Uanx = €E 

27 EvFIn JF~ ED bUIA!"2:S=2:GOSUB *CF:RETURN ELSE 
IF HV(6)=@8 THEN H=@ ELSE H=1 

18818 IF OJ=4 THEN 18188 ELSE IF OJ=14 AND CY=OY+1 
THEN 18306 ELSE IF OJ#15 AND CY=OY+1 THEN 184808 E 

LSE GOSUB *RJ: RETURN 

18188 C=@:GOSUB *SN: IF TB(N,2)=8 THEN M$="7F= €E F4 

JT~ beI4t":S=2:GOSUB *CF:RETURN ELSE IF N<15 THEN 
18198 

18118 O=ST(N-15,3):1F O=8 THEN 18196 

18128 IF CS(0,3)=11 OR CS(0,3)#12 THEN M$="Vx9" Jay 
F 4M JE bOTATF~ AL!" :S=2:GOSUB *CF: RETURN 

18198 HV(H)=TB(N, 2): TB(N, 2)=8: X=OX: Y=OY: P=4:GOSUB 
*G6:GOTO 18498 

183866 C=3:GOSUB *SN: IF CK(N,7)<>@ THEN HV(H)=CK(N, 
7):CK(N,7)=8:GOTO 18498 

18318 O=8@:FOR Sl=2 TO 6:IF CK(N,S1)<>8@ THEN O=S1 
18328 NEXT: IF O=@ THEN M$="F=E AfyFy 47%eY!"2S=2:GOS 
UB *CF:RETURN ELSE HV(H)=CK(N,0O):CK(N,O)=@:GOTO 18 
496 

18408 C=2:GOSUB *SN: IF CL(N,2)=6 THEN M$="7=E N\4y7 
4F49"'1"2S=2:GOSUB *CF:RETURN ELSE HV(H)=CL(N,2):C 
L(N,2)=8 

18498 GOSUB *HV:T=1:RETURN 

18508 *PT:T=68:1F HV(8)=@ AND HV(1)=@ THEN M$="7=E€ 
Evy 474!":S=2:GOSUB *CF:RETURN ELSE IF OJ=4 THEN 1 
8608 ELSE IF OJ=8 THEN 18760 ELSE IF OJ#14 AND CY= 
OY+1 THEN 18888 ELSE IF OJ=15 AND CY=OY+1 THEN 189 
68 ELSE 18998 

18558 IF HV(8)>@ AND HV(1)>@ THEN M$2"b*F9/ 7 = Evy 
FIR EP FD F7,fUM CERF + 1 ZH F-2)7"3Q22:GOSUB *QS: 
H=Q-! ELSE IF HV(@)>@ THEN H=@ ELSE H=1 

18568 RETURN 

18688 C=8:GOSUB *SN: IF TB(N,2)<>@ THEN M$="2y"= F= 

nN 47 PYRAI"2S=2:GOSUB *CF:RETURN ELSE GOSUB 18558 
>TB(N,2)=HV(H)?HV(H)=6@:GOSUB *HV: X=OX: Y=OY:P=TB(N, 
2):GOSUB *G4 

1861@ IF N<15 THEN RETURN ELSE O2ST(N-15,3):1F O=8 
THEN RETURN 

18626 IF CS(0,3)=16 THEN 18658 

18638 IF P<>27 THEN M$2"ADF €E/ Evy AFIT NF x=2- 
7 Ev7FFt7A! FAVED FFT F* Ya! !"2:S=2:GOSUB *CF:RETUR 
N 

18635 IF (CHR*66+MI )-CS(0,4))>15 THEN M$="Eyb NPZ 
F2VEY F VS Atth ¥*xXy!!":GOSUB *CF:HY=HY-5:GOSUB * 
HY 

18648 A=RND(1)#20:A=VAL(MID$(SL$,A*2+1,2)):1F MNCA 
-32,6)=@ THEN M$=MN$(A-32)+" Xx=2- = F4/%!1!'"2S=2:G0 
SUB *CF:HY=HY-1:GOSUB *HY:GOTO 18648 ELSE M$=MN$(A 
-32)+" 29°34!" GOSUB *CF:CS(0,6)=A 

18645 CS(0,3)2#18:CS(0,4)28:CS(0,5)=HR*68+MI1 : RETURN 
18658 IF P=27 THEN M$="€% xX=2- N\ 2993! “+MN$(CS(O 
»6)-32)4+" PALI~ Y*vt4!!1"3:S=2:GOSUB *CF: RETURN 
18651 IF P<>CS(0,6) THEN M$="A\vF EJ Eve AP{F~ NF 
"*+MN$(CS(0,6)-32)+" tyF#745!!1":S=2:GOSUB *CF: RETURN 
18655 IF ((HR*¥66+MI)-CS(0,5))>38 THEN M$="tYAY9F1I- 

&Ybt=!":GOSUB *CF:HY=HY-5 ELSE M$="4yv #9n! Db WN 

P4{%!!":GOSUB *CF:HY=HY+5 

186686 GOSUB *HY:CS(0,3)=11:CS(0,5)=8:RETURN 

18788 GOSUB 18550:I1F HV(H)=27 THEN 1899@ ELSE IF H 
V(H)=31 THEN TS=8 

18718 GOTO 18988 

18888 GOSUB 18558: IF HV(H)=27 THEN 18998 

18818 C=3:GOSUB *SN: IF CK(N,7)<>8@ THEN M$="27"= t= 
nN NyF 4421"2S=2:GOSUB *CF: RETURN 

18828 O=8:FOR S1=2 TO 6:IF CK(N,S1)=@ THEN O=S1 
18836 NEXT: IF O0=@ THEN M$="€9 fon? > ALTy*39 AT) 
wey! !":S=2:GOSUB *CF: RETURN ELSE CK(N,0O)=HV(H):GOT 
O 189886 

18988 GOSUB 18550: IF HV(H)=27 THEN 18998 

18918 C=2:GOSUB *SN: IF CL(N,2)<>8@ THEN M$="F=Hn ES 
N4yF4RI"2S=2:GOSUB *CF: RETURN ELSE CL(N,2)=HV(H) 
18988 HV(H)=@:GOSUB *HV: RETURN 

18998 GOSUB *RJ: RETURN 

190808 *TL: IF OJ<>9 THEN GOSUB *RJ:RETURN 

19018 M$="b°a = F°T7 YRAN (YAAVadkrVP-l KyyLYa-2 7 
ANP* 3 AVDIP+4 VU 2YS-5 = 49+6)7":Q=6:GOSUB *QS:0 
=Q: IF O=6 THEN RETURN ELSE IF RND(1)<.2 THEN S=2:M 
$="Ply! NtLF299*1":GOSUB *CF:T=T+1:GOTO 19818 
19820 T=T+2:M$="ESELD atFd “2: Q$=" F>R-+-"3ON O GOTO 
191080,198056,191680,19308,19460 

19858 M$=M$+"& LT a"+Q$+" ALLaAFv J EFHYI NF F AVA 

= P94%2439!":GOSUB *#CF:M$2"3°SN°9 J P7529 =N =tt7y- 


O74 LOGIN 1985 No.9 


AP L- Nn” F¥V2Z! 
19818 

19188 N=@:FOR S1#@ TO 9:IF TB(S1,2)#8 THEN N=N¢1 
19116 NEXT: IF O21 THEN Q$="53703%r>P"+Q$:GOTO 1926 

8 ELSE Q$="72)P"+Q$ 

19128 M$=M$+Q$:GOSUB #*CF 

19136 M$="trub{yvE =AAID+ AI L- Fy 2x! SOBA F*2Z CY O 

r N)?":Q=1:GOSUB *QS:1F Q$="N" THEN 19816 ELSE IF 

N<1 THEN 192986 ELSE C#31:PR=568@:GOTO 192586 

19208 M$=M$+Q$:GOSUB *CF 


FNP) AANPR = PIA!" :GOSUB *CF: GOTO 


19218 M$="F=7 FERX F°A2nM (3X1 NY-2 =7-3 PH4-4 
FVA~ 5 ALF 3°G F-A~*7 NOV-- BB" MISz"FI-L-9 Bh 
“18 AN AAT) ML--12 0 A-t--13 BOFe-14 bND-15)? 


"2Q=15:GOSUB *QS:IF Q215 THEN 19018 ELSE IF N<1 TH 

EN 19296 ELSE C=42+Q:PR=MP(Q-1) 

1925@ B=RND(1)*9:1F TB(B,2)=@ THEN TB(B,2)#C:N2N-1 
ELSE 19258 

19268 GOSUB *BY:M$="4&nH= 3°39 W CY or N)?":Q21:GOSU 

B *QS: IF Q$="N" THEN 198618 ELSE IF O=1 THEN 19218 

ELSE 19138 

19298 S=2:M$="tyn7? F*A2n* 99 7 F-7°M HN AoN 4 F* AL 

42°39 ThE F°FIWUY! = PLNDA~!":GOSUB *CF:GOTO 19618 
19308 M$=M$t"A9I7P"+Q$+" WIR PYN™bD AH IAIAL, PF 

9 J BFND = Fob FVVAI"  MIS="Vant> NW AJIO = FoF AVYR 
(SO0AR-1 180880R-2 158080F-3 2600R-4 bY7y-5)":Q=5: 

GOSUB *QS: IF Q<>5 THEN PR=506*Q:HY=HY+10*Q%(RND(1) 
+.5):GOSUB *BY:GOSUB *HY 

19318 GOTO 19816 

19488 M$=M$t"Vo° 29> YovHN>-+- DD J HO NWN AD F7Y*! 
FnD WFhY SV 7 CRON YD E AATMII"SMIS="bY J 3-2 = 2 

WHE (18808R-1 26080FR-2 38608R-3 b7y-4)2?":Q=4: GOSU 

B *QS: IF Q=4 THEN 198186 

19418 PR=Q*1808:PW=PW+25*Q*(RND(1)+.5) > HY=HY+20*Q« 
(RND(1)+.5):GOSUB *BY:GOSUB *PW:GOSUB #HY:T=T+2:GO 

TO 196186 

19566 *SW: IF OJ=6 THEN 19518 ELSE IF (OJ=13 OR OJ= 
14) AND CY=OY+1 THEN 19680 ELSE GOSUB *RJ: RETURN 
19518 IF OP=@ THEN B=24:OP=1 ELSE B=21:O0P=8 

19528 FOR S1=@ TO 2:P=B+S1:POKE &HE473+S1#12,P:X=7 
>Y=33+S1:GOSUB *G6:NEXT:T=T+2:1F OP=@8 THEN M$="¥3% 
NED SR 9 YAW CY Or N)?":Q=1:GOSUB *QS: IF Q$="Y" 
THEN CL=1 ELSE 19518 

19538 RETURN 

19608 B=&8HE2E#+OY*1 2+0X:1F OJ=13 THEN OJ=14 ELSE O 

J=13 

19618 POKE B,OJ:X=OX: Y=*OY:P=0J:GOSUB *G6:T21:IF OJ 

=14 THEN RETURN 

19708 C=3:GOSUB *SN:C=@:FOR S122 TO 7:C=C+CK(N,S1) 
>NEXT: IF C>®@ THEN 19808 

19718 S=2:M$="SIA9~! FIE NIVFIA J= F39N¥% F ON = 

YF ADT Yyv9!":GOSUB *CF:S=2:M$="5299"*4 = 1506R + 

DUI!! N° y7)+++"sGOSUB *CF:OJ=14:POKE B,OJ: X=OX: Y2 

OY:P=OJ:GOSUB #G6:PR=158@:GOSUB *BY:T=1@:RETURN 
1980@ FOR Sl=1 TO 4:FOR S2=2 TO 5:IF CK(N,S2)>CK(N 
»S2+1) THEN SWAP CK(N,S2),CK(N,S2+1) 

19818 NEXT S2,S1:Q$="":FOR Sl=2 TO 6: Q$=Q$+STR$( CK 
(N,S1))2NEXT 

19826 CK(N,7)#38:FOR S1=8 TO 186:M$="":FOR S2=68 TO 

4:>M$=M$+STR$(MN(S1,S2)):NEXT: 1F M$=Q$ THEN CK(N,7) 

=32+S1 

19838 NEXT:FOR S1=2 TO 6:CK(N,S1)=6:NEXT: RETURN 

260008 *LK: IF OJ<>18 THEN GOSUB *RJ: RETURN 

2080186 X=8:Y=172: XL.=88: YL216:C=68:GOSUB *BX:M$="b*/ 

AX=a- 7 FAMED FD VIN IAN (A-t-- 1 AOFe-2 b-Ab-D 

Ve“ 4yF°4 EPH 5S" IMIS="NL-3712°6 ALLY-7 899*-B A 

yiv=F°9 F=-Fe 10 PAAZP9=h<11 FI 1297°2Qe12:GOSUB 

*#QS:N=Q-1:1F N=11 THEN RETURN 

20100 X=8:Y=173:P=N+32:GOSUB *G2:X=X+8+LEN(MN$(N) ) 
>FOR S1=@ TO 4:P"MN(N,S1):I1F P=@ THEN 26118 ELSE G 

OSUB *G2:X=X+8+LEN(MT$(P-43) ) 

26116 NEXT 
2862808 M$=" 

S1):1F P=@ THEN 20210 ELSE M$=M$+" 

): IF S1<4 THEN M$=M$+" +" 

28218 NEXT:GOSUB *CF:T=T+1:GOTO 266180 
286568 *WS:1F OJ<>7 THEN GOSUB *RJ:RETURN ELSE M$=" 
BLD Yes FLAT FT TVVSPX. = NA!":GOSUB *CF: TW=8: T= 
3: RETURN 

216868 *CL2ITF CY>35 AND CY<39 AND CD<>@ THEN 21618 

ELSE GOSUB *RJ: RETURN 

210186 RESTORE 35600: X=22:Y=2136:FOR S221 TO 5:GOSUB 
*G7:X=X+6:NEXT:RESTORE 358800:GOSUB *G7:GOSUB *TG 
21828 FOR S2=2 TO 9:X=S2:Y=39:P=1:GOSUB *G6:NEXT:H 

Y=HY+2:GOSUB *HY:T=5:RETURN 

21508 *RG: IF OJ<>12 THEN GOSUB *RJ:RETURN ELSE GOS 
UB *P1:T=T+1:RETURN 

30008 °2° 97497 F*-¥ 

380108 DATA FF,FF,FF,FF,FF.FF,FF,FF,FF,7F,FF,7F,FF, 

FF,FF,7F,FF,7F,FE,FF,FE,3F,FF,BF,FE,FF,FE,3F,FF,BF 
»FC,FF,FD,1F,FF,DF,80,FF,81,00,FF,C8,E0,FF,EF,63,F 
F,.FB 

30118 DATA F6,FF,F7,@67,FF,F7,F8,FF,FB,6F,FF,EF,F@, 


“+MN$(N)+" =": FOR S128 TO 4:P=MN(N, 
"+MT$(P-43 


FF,F7,07.FF,77,F0,FF,.F6,87,FF,B7,E1,FF,E9,C3,FF,CB 
,E7,FF,E7,F3,FF,F3,DF,FF,DF,FD,FF,FD,FF,FF,FF,FF.F 
F,FF: '% 

38128 DATA FF,FF,.FF,FF,FF,FF,FF,FC,FF,FF,6F,FF,.FF, 
FC,FF,FF,@F,FF,FF,F3,FF,FF,F3,FF,FF,F3,FF,FF.F3,FF 
,FF,CF,.FF,FF,FF,.FF,FF,CF,FF,FF,FF,FF,FF,CF,FF,FF,F 
F,FF 

30138 DATA FF,CF,FF,FF,FF,FF,FF,CF,FF,FF,FF,FF,FF, 
CF,FF,FF,FF,FF,FF,F3,FF,FF,F3,FF,FF,F3,FF,FF,F3,FF 
,FF,FC,FF,FF,@8F,FF,FF.FC,FF,FF,@F,FF,FF,FF,FF,FF,F 
F,FF: ‘'C 

380148 DATA FF,FF,FF,FF,.FF,FF,FF,CF,FF,FF,F3,FF,FF, 
CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF 
,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF,C8,FF,FF,8 
3,FF 

38158 DATA FF,C8,FF,FF,863,FF,FF,CF,FF,FF,F3,FF,FF, 
CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF 
,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF,FF,FF,FF,F 
F,FF:'H 

38168 DATA FF,FF,FF,FF,FF,FF,FF,CF,FF,FF,F3,FF,FF, 
CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF 
,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F 
3,FF 

38178 DATA FF,CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF,FF, 
CF,FF,FF,F3,FF,FF,.CF,FF,FF,F3,FF,FF,CF,FF,FF,F3,FF 
,FF,F@,FF,FF,0F,FF,FF,F8,FF,FF,0F,FF,FF,FF,FF,FF,F 
F,FF: 'U 

38188 DATA FF,FF,FF,FF,FF,FF,FF,E0,FF,FF,03,FF,FF, 
FE,FF,FF,FB,FF,FF.FE,FF,FF,FB,.FF,FF,88,FF,FF,08,FF 
,FF,FD,FF,FF,FB,FF,FF,FD,FF,FF,FB,FF,FF,E8,FF,FF,8 
3,FF 

38198 DATA FF,FB,FF,FF,FF,FF,FF,F7,FF,FF,FF,FF,FF, 
E8,FF,.FF,01,FF,FF,9B,FF,FF,FD,FF,FF,FB,FF,FF,FD,FF 
,FF,FB,FF,FF,FD,FF,FF,FB,FF,FF,FD,FF,FF,F8,FF,FF,8 
1,FF:° 7 

30260 DATA FF,FF,FF,FF,FF.FF,FF,FF,FF,FF,FF,FF,FF, 
FF,FE,FF,FF,1F,FF,FF,F9,FF,FF,67,FF,FF,F7,FF,FF, 7B 
,FF,FF,EF,FF,FF,7D,FF,FF,EF,FF,FF,7D,FF,FF,DE,FF,F 
F,FD 

30218 DATA FF,FF,DE,FF,FF,FD,FF,FF,DE,FF,FF,FD,FF, 
FF,DD,FF,FF,FB,FF,FF,ED,FF,FF,FB,FF,FF,F3,FF,FF,E7 
,FF,FF,FF,FF,FF,1F,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,F 
F,FF:°7 

30228 DATA FE,FE,FF.FF,FF.FF,FE,FE,FF,E@,E6,FF,F8, 
F8,FF,36,36,FF, 86, 86,FF,F6,F6,FF,B6,B6,FF,F6,F6,FF 
.B4,B4,FF,6E, 6E,FF,B6,B6,FF,EE,EE,FF,B6,B6,FF,1E,1 
EFF 

380238 DATA B@,B8,FF,FC,FC,FF,B7,B7,FF,BF,BF,FF,B7, 
B7,FF,BF,BF,FF.B@,B8,FF,00,00,FF,87,87,FF,BF,BF,FF 
»FF,FF,FF,5F,5F,FF,FC,FC,FF,E7,E7,FF,E3,E3,FF,F8,F 
8,FF: '#y¥ 

30248 DATA FB,FB,FF,EF,EF,FF,FB,FB,FF,EF,EF,FF, 86, 
80,FF,00,08,FF,FB,FB,FF,EF,EF,FF,FF,FF,FF,7F,7F,FF 
,FE,;FE,FF,BF,BF,FF,FD,FD,FF,DF,DF,FF,FB,FB,FF,6F,6 
F,FF 

38258 DATA E7,E7,FF,73,73,FF,98,98,FF,04,04,FF,FF, 
FF,FF,7F,7F,FF,FB,FB,FF,6F.6F,FF,F7,F7,FF,77,77,FF 
,CF,CF,FF,79,79,FF,.FF,FF,FF, 7F,7F,FF,FF,FF,.FF,7F,7 
F,FF: ‘°% 

38260 DATA FF,FF,FF,BF,BF,FF,FF,FF,FF,BF,BF.FF,E8, 
E®,FF,06,00,FF,EF,EF,FF,FF,FF,FF,EF,EF,FF,BF,BF,FF 
,EF,EF,FF,BF,BF,FF,EF,EF,FF,81,81,FF,EF,EF,FF,BF,B 
F,FF 

30278 DATA EF,EF,FF,BF,BF,FF,EF,EF,FF,BF,BF,FF,EC, 
EC, FF,61,01,FF,ED,ED,FF,FD,FD,FF,DD,DD,FF,FD,FD,FF 
,DD,DD,FF,FD,FD,FF,.DD,DD,FF,FD,FD,FF,BC,BC,FF,#61,8 
Ll PES s> 

31808 DATA 8080,10,00,080,08,608,080,18,08,00,18,06,080, 
1E,68,080,78,18,00,1F,64,60,F8,20,00,0F,080,00,F0,08 
.10,6F,00,08,F6,6080,00,680,1F,00,67,F9,080,E1,1E,00,8 
7,78 

31818 DATA 8@0,F3,80C,8080,CF,38,08,F7,00,18,EE,680,604, 
FB,C@,20,DC,080,04,5B,48,28,DC,06,01,1C,1D, 88,38, 88 
,81,08,09,80,38,B8,00,080,00,00,38,38,608,08,08,08,1 
8,18: '¥5¥>(d) 

31828 DATA 06,87,04,00,80,608,060,0F,6C,60,E8,00,68, 
07,08,00,E0,00,00,1F,18,20,0F,C8,82,3C,31,680,3E,C4 
,@C,12,11,800,3C,C8,08,0F,808,080,3C,C8,30,6F,38,08,B 
8,48 

31838 DATA 30,6F,30,00,B8,48,00,0F,00,086,3C,C8,0C, 
72,61,08,3C,C8,62,FC,E1,00,3E,C4,600,7F,68,20,0F,CB 
,08,0F,00,00,E8,080,8080,03,00,08,E8,88,00,01,080,8086,C 
0,480: '354>(1) 

32800 DATA 18,20,1F,3F,24,48,42,84,00,00,1F,FC, 66, 
84,00,84,1F,FC,10,880,20,860,3F,FE,862,82,8C,82,78,8C 
868,880: '9"4 

32018 DATA 00,800,1F,FC,180,04,18,04,18,04,180,04,186, 
64,18,04,1F,FC,180,04,18,04,18,04,18,804,18,804,10,64 
pth. ECs SF 

320280 DATA 60,00,1F,FC,18,04,180,04,180,04,1F,FC,18, 
04,10,04,10,04,18,04,1F,FC,10,604,18,04,180,04,18,804 
~1F.FC: ‘x 


EIPC-88012/'J—ZA*CHUBOBRE” JOTI LIAR a1 98N\—Y) 


32038 DATA 60,10,00,180,7C,FE,44,18,44,18,44,18,45, 
FF,7C,04,44,04,45,FF,44,604,44,84,7C,44,080,24,080,64 
.08,1C:°s* 

32040 DATA 02,20,862,20,04,18,04,10,08,08,16,84, 28, 
02,4F,FD,61,04,01,04,02,04,02,04,804,04,04,64,08,64 
10,38: '° 7» 

32058 DATA 00,04,7F,18,00,60,080,48,3E,48,22,48, 22, 
7F, 22,44, 22,44, 3E,44,20,44,28,84,20,84,28,84,41,804 
»42,04: '543 

32868 DATA 180,180,10,180,10,FE,10,18,7C,10,180,180,11, 
FF,1@,04,14,04,19,FF,70,804,18,84,180,44,10,24,180,64 
,o8 tC. 

328078 DATA 68,80,01,40,82,20,04,18,18,0C,28,02,4F, 
F9,00,80,00,80,00,80,3F,FE,00,880,08,88,604,88,04,98 
»7F,FF: ' ¥> 

32088 DATA #80,00,3F,FE, 20,82,20,82,26,82,20,82, 28, 
82,20,82,3F,FE, 20,02, 28,802,280,02,28,82,20,82,28,82 
»20,0E: 'AR 

32898 DATA 88,280,808, 28,08,20,17,FF,18,28,20,78,50, 
A8,18,A8,180,A8,11,24,11,24,12,22,14,F9,18,20,18, 28 
»180,28: '°94 

32180 DATA 81,00,01,00,801,00,01,00,7F,FE,601,02,81, 
62,01,02,02,02,02,02,04,02,04,802,08,02,18,82,20,64 
»48,38: 'Ua7 

32118 DATA 60,00,00,02,1C,804,22,808,22,18,22,28,1C, 
40,00,880,01,080,02,38,804,44,808,44,10,44,28,38,48, 086 
08,00: '% 

32128 DATA 3C,086,01,FF,00,10,7E,12,086,92,080,52,3C, 
54,00,54,00,18,3D,FF,00,10,680,18,3E,18,22,18,22,18 
»3E,180:'ta% 

32130 DATA 04,02,04,02,24,92,14,92,15,12,04,12,3F, 
92,04,12,04,12,04,12,7F,D2,804,12,804,802,04,802,04,62 
»84,8E: ‘NY 

32148 DATA 180,10,10,180,10,FE,18,180,7C,18,180,180,11, 
FF,18,04.14,04,19,FF,78,04,180,84,10,44,18,24,18,04 
~30, 10s SF 

32158 DATA 04,280,804, 28,24,20,24,7F,3F,55, 24,55, 44, 
95,05,25,04,25,05,29,80E,49,34,89,805,11,04,21,804,41 
,04,86:'°E/) 

32168 DATA 64,44,04,44,09,FF,68,44,10,44,10,44, 2B, 
FF,48,600,08,080,08,FE,08,82,808,82,08,FE,08,82,808,82 
,88,FE: ‘ory 

33088 DATA 08@,3C,42,42,42,42,42,42,42,42,42,42,42, 
42,3C,60:'@ 

33010 DATA 06,08,18,28,08,608,08,08,08,08,08,08,08, 
68,1C,8686:'1 

33020 DATA 866,18,24,42,42,42,802,04,08,18,20,20,48, 
480,7E,08:'2 

33030 DATA 080,18,24,42,42,802,804,18,84,802,42,42,42, 
24,18,88:'°3 

33040 DATA 686,04,0C,0C,14,14,14,24,24,44,44,7E,64, 
84,04,08:'4 

33056 DATA 60,7E,480,48,480,58,64,42,02,02,02,42,42, 
24,18,800:'°5 

33060 DATA 080,18,24,42,42,480,58,64,42,42,42,42,42, 
24,18,00:'6 

33078 DATA 08,7E,42,42,42,04,04,08,88,08,08,08,68, 
68,808,800: '7 

33088 DATA 86,18,24,42,42,42,24,18,24,42,42,42,42, 
24,18,00:'8 

33898 DATA 66,18,24,42,42,42,42,42,26,1A,82,42,42, 
24,18,00:'9 

34000 DATA FF,FF,,FF,FF,,FF,FF,,FF,DF,26,FF,FF,,FF 
,DF, 20,FF,FF,,FF,DF,26,FF,FF,,FF,DF,20,FF,E7,18,FF 
,BE,40,FF,F9,06,FF,BF,40,FF,FE,01,FF,7F, 88 

34018 DATA FF,FF,,FF,7F,80,FF,FE,01,FF,BF,48,FF,FD 
,82,FF,DF, 20,FF,FB,04,FF,EF,16,FF,F7,08,FF,FF,,FF, 
CF,30,FF,FF,,FF,FF,,FF,FF,,FF,FF.,,FF,FF,: ' x 

34020 DATA FF,FF.,,.FF,FF,,FF,FF,,FF,FF,,.FF,FF,.FF.F 
F,.FF,C@,3F,FF,1F,E8,FF.FF,,FF,FF,,FF.FF,,FF,FF,.F 
F,FF,,.FF,FF,.FF,FF,,FF,FF, 

34030 DATA FF,FF,,FF,.FF,,FF,FF,,FF,FF,.FF,FF,,FF,F 
F,,FF,FF,,FF,FF,,FF,,FF,FF,87,F8,FF,FF,,FF.FF,,FF, 
FF,,.FF,FF,,FF,FF.,,FF.FF,: ‘= 

34048 DATA FF,FF,,FF,FF,.,.FF,FF,,FF,FF,,FF,FF,,FF.F 
F,,FF,FF,,FF,FF,,FF,FF.,FF,FF,,FF,FF,,FF,FF,,FF,81 
,7E,FF,FF,,FF,FD,602,FF.FF, 

34050 DATA FF,FD,@2,FF,FF,,FF,FD,@2,FF,FF,,.FF,FD,8 
2,FF,FF,,FF,.FD,62,FF,.FF,,FF,FD,602,FF,FF,,FF,,FF.FF 
,3F,C®@,FF,FF,,FF,FF,,FF,FF,,FF.FF,: ‘2 

34868 DATA FF,FF,,FF,FF,,.FF,FF,,FF,FF,,FF,FF,,FF,F 
F,,FF,FF,,FF,FF.,FF,FF,,FF,FF,,FF,FF,,FF,FF,,FF,FF 
. FF,FF,,FF,C3,3C,FF,FB,04 

348070 DATA FF,BD,42,FF,F7,08,FF,7E,81,FF,0F,FO0.FF, 
FF,,FF,FF,,FF,FF,,FF,FF,,FF,FF,,FF,FF,,FF,FF,,FF.F 
F.,FF,FF,.FF,FF,,FF.FF..FF,FF.: ‘- 

35808 DATA ,,..20,,180,10,18,08,28,804,20,04,280,82,2 
002,22. 1A, 24,06. 14,802, 18. .8Cc65555°4 

35818 DATA ,,04,,03,C0,,88,,,804,,08,,08,F8,0B,08,8 
C,04,68,04,,04,,08,,76,03,80,,:'°9 

35020 DATA. ¢6o003 090900831 CO.8C, 20,380.10 6 105...18 ss 
20, SCO O7icccee 9 
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35030 DATA ,,10,,08,,8C,,08,,08,,08,,08,,08, ,08,04 
,88,04,08.08,88.10,04,60,03,80,,:'5 

35040 DATA .,,...,.01,,16,80,08,00,09,E8, HE, 18,38, 
10,04,10,864,E8,02,,02,,02,,,:'r 

36068 DATA ,,64,18,02,20,3F,FE,,80,,80,1F,FC,,88,, 
80,7F,FF,64,,04,,0B,FE,10,20,20,20,4F,FF: '% 

36018 DATA ,,08,,09,FF,09,11,09,11,7F,11,09,FF,09, 
11,09,11,0F,11,19,FF,68,10,808,10,08,10,08,10,38,10 
tay 

36828 DATA ,,02,,01,E0,,40,,,11,F0,8E,20,,40,,80,8 
1,,01,C8,62,20,04,20,08,28,18,1E,,:'x 

37008 DATA ,.,,.,3F,7E, 21,42, 3F, 7E, 21,42, 3F, 7E, 20, 
02,20,42,28,42,2F,FA,20,42,20,C2,21,42,22,42:'A(1) 
378618 DATA CC 542 SE FCS 61 N SCHAUER SRC ERS AL 
1 4O2(NIGF(D) 

37028 DATA IF,FF,16,,10,48,18,40,18,7E,10,48,10,48 
:10540,.13, FE, 12,02, 22,02. 22,02.22.02543.FEs ono Cr 
dy 

38808 DATA ,FF,86,,FF,.60,,FF,62,,FF,50,,FF,24,,FF, 
43,,FF,26,,FF,84,02,FF,1D,,BF,C8,1C,FF,62,30.4F,C0 
,04,9C,F3,E6,DF,16,21,63,DE,38,6F,C8,0A,FF, 78, 30,0 
F,C8,83,FF,1C,,FF 

38818 DATA C8,,FF,27,,FF,84,,FF,22,,FF,43,,FF,64,, 
FF,4@,,.FF,86,,FF,70,FF,FF,,FF,FF,,3F, 3F,,FC,FC,:'3 
~+ 

40000 ‘42-7 F>-¥ 

48108 DATA 48,2,40,1,39,1,32,2,48,2,39,1,39,1,40,1 
:43,.14 404932, 2,.325 3041's 2As 2c 32,2. 2A 16305159201 
99961 (453 

48200 DATA 2A,2,32,2,39,2,40,2,39,2,32,2,2A,2, 32,2 
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»39,2,40,2,39,1,48,1,39,1,32,1,2A,2,32,2,2A,2, 26.2 
692 2%264 25 2e0es 20s le obvev aes 4s 

40300 DATA 486,1,55,1,55,1,32,2,39,2,46,4,55,4,FF, 1 
04C,1,55,2,480,2,39,2,32,1,480,2,26,1,2A.4,FF,1,2A,1 
3205 15 2As 1, 2652, 2As es F Fs 1a 265. 2A, 1,265 1.204, 
40400 DATA 2A,3,19,1,19,2,19,2,19,3,18,1,19.2,1C, 
62052420426 1C 2619, 2,156.7 5FF, 1443535 13,.0s 13.2545, 2 
919,3,51951,1C,2,26,2,FF,1.205.1.1C.1.19,1.181,15.1 
1951, 11 01.08, 1,PP, 451501. 20.1. 

405608 DATA 7F,6,7F,3,7F,3,7F,6,.6B,3,71,3,71,3,7F,3 
»7F,3,87,3,7F,9,FF,9,AA.9,FE,9, 

5ObWHH 'Y/¥ J F*-¥ 

56186 DATA 86,86,120,96,70,40,160,68,90,50,58,68, 1 
28,100 

51808 DATA 34,)1\°>,=7, P¥1, 92a” ALF 3, F-2* ,NV-, D-h 
>TO, AN 42, NL-,3-t-, 3a%F 

51618 DATA 3-t=,..5 652,55; 39F ¥50+052,56, b-2b so 5 0 44, 
5B.9Lb  4¥F,,,44,45,46,b°4" ,45,46,48,49,53, nL-312,4 
3,45,46,53,54,4LL%, ,45,46,47,53,999*,,,,46,53,e9bY 
-#,,47,48,58,52,7-4,47,48,58,51,52,P4{27-h,,, 47,51 
soz 

518286 DATA 1,4,4,4,.6,4,8,4,10,4,1,6,4,6,6,6,8,6,18 
66,1,9,10,9,.1515.10,15,1,23.6,26,9.26,.1427.3.27.1. 
28,3,28,8,28,9,28,8,38,9,38 

51838 DATA 7,26,3.10,26,2,1,26.1,3,26.1,1,29,,.3.29 
»o/,28,3,18,28,2,7,30,3,16, 38,2 

51848 DATA Set ae 11 Olt Os 1 ly 16.4 bods4 3.319.551 
35 7613,9,13 

51858 DATA 290945195 751949419. 2521,.4 5215 7621 9521 
51866 DATA 24,9,9,7 
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378 M$="=RPII2°SIF MACTY) AND JTCTY)<FNT/S/MACTY) AND JTCTY)<MACTY) THEN M$=MESS$ 
CTY, JTCTY SI CTY IEST CTY D412 

2118 : 

213@ GOSUB 1190:X=XxX(TT):Y=YY(TT):GOSUB 4640: TB(TT)=1 

5088 °“--- ELSE 

5@1@ IF MP(XX(TT),YY(TT))=1 AND TT<3 THEN M$=NINS(TT)+° sYaebet peasy’! te TYal! F97 
'2=t'*:GOSUB 11686:RETURN 

5020 IF TT=6 AND TB(7)=1 THEN TBC 7)=0:XX(7)=4:YY(7)=4:X=4: Y=4:TT=7:GOSUB 3048@:GO 
SUB 3140: TT=6:M$="=F#!E!F2° ZAK? IAC OOS" 7x! DIREL’ sGOSUB 1200:BMX=1:BMY=1:GOSUB 594 
@:BS(6)=3 

5@3@ RETURN 

55@@ “--- TIME TABL 2 

551@ IF TB(2)=1 AND BS(2)=1 THEN IF KT(2)+FN T>6@ AND JT(2)=@ THEN BEEP 1:M$="7" 
L4Y2" 3:°+MES$(2,8):GOSUB 1160:BEEP @:JT(2)=1:KIK$(7)="7"L4°:TB(7)=4:GOSUB 3148:G 
OSUB 3010:LOCATE 63,13:PRINF ‘°7"L42y"°3;:GOSUB 3018:LOCATE @,24 

5520 IF RND*¥9@0<1 THEN X=FNR:Y=FNR: IF X<>a4 AND Y<>4 AND MPC(X,Y)=@ THEN M$="429!E- 
Y9"*;GOSUB 12@@:MP(X,Y)=1:GOSUB 5910 

553@ IF BMX=RBX AND BMY=RBY AND RF=1 AND CF=@ THEN MS$="A°D9S*  P!IDQ°-TIRIFFS-F'° IG 
OSUB 1200:CF=1:RETURN 

5548 IF FN T/8>RB AND RF=1 AND CF=@ THEN RB=RB+1: X=RBX:Y=RBY:GOSUB 5930: X=SGNC(RN 
D¥3-1):3:Y=SGN(RND¥3-1):IF RBX+X>@ AND RBX+X<6 AND RBY+Y>@ AND RBY+Y<6 AND RBX+X< > 
3 AND RBT+Y<>3 THEN RBX=RBX+X:RBY=RBY+Y:GOSUB 595@ ELSE GOSUB 595@ 

5558 IF FN T>2@@ AND FF=1 AND BS(1)=2 THEN FR=2:BEEP:M$=NINS(1)+°3°+° FUC2IAIYETh 
PIAZ* II INT Hr I AFIF" 1F°-RI°VUODF* sGOSUB 1166:MS="RaR"* ly IFUOFILFO IV 1 FEVIF*E7TIILTVHO 
'EFUFE-F-FA!F°7I@*sGOSUB 1200 

5568 RETURN 

5918 IT=Y¥*5+xX3X=X*48-16-16*RND: Y=Y¥24+24-8*RND:FX(1)=X3FYC I )=Y¥:PUT(X,Y),C4,XOR:RE 
TURN 

59286 T=Y*5+X3X=FXCI) 3: Y=FYCI)s:PUTC(X,Y),C4,XOR: RETURN 

5938 X=X*48+230: Y=Y*24+15:LINE(X,Y)-(X+15,Y+15),80,BF:RETURN 

5948 X=BMX*48+23@: Y=BMY*24+15;:PUT(X,Y),C5,PSET:RETURN 

5958 X=RBX*48+230: Y=RBY*¥24+15:PUT(X,Y),C6,PSET:RETURN 

596@ LOCATE X¥6+28,Y*3+2;3;PRINT’<>* sRETURN 


5978 
5988 LOCATE X*6+28,Y*3+2:PRINT® ‘“s:RETURN 
6080 “----- ELSE Say 


6100 IF TB(1)=@ AND RF>@ THEN C$=C$+"6* 

611@ IF XX(1)=RX AND YY(1)=RY AND RF=1 THEN C$="@67° :RETURN 

6120 IF FF=2 THEN C$="18° 

6138 RETURN 

615@ IF CA=6 THEN I=SGN(YY(1)-RY)*3-SGN(XX(1)-RX)+4:1F 1=4 THEN M$=" bo" b=! E-2"7° 
“'y!hFIF°:GOSUB 1200:RETURN ELSE N$=MID$(HOS,1*4+1,4)3M$="!AIQTFU! bo E SEO EKO ROL" 
:L=1:GOSUB 118@:RETURN 

6168 IF CA=7 THEN M$="E-2" 12°"! 7! EF92E2F%°:GOSUB 1200:RF=6:CF=@:RETURN 

6188 IF CA=8 THEN IF FN T<23@ THEN M$="A°R0-7° s!UC2ZINIYETK? HRAR* let F-hOFIA-To I 
'FF#SFF>° sGOSUB 1160:FF=HO ELSE MS="NA°-D- sIDA°YTSSISO*S™ HOE IEKORIRIS FIAT ORF’? 
FF=3:GOSUB 1168 

6198 RETURN 

6268 RETURN 

6248 RETURN 

6258 RETURN 

64808 RETURN 

6458 RETURN 

6600 IF TB(6)=2 OR CF=1 THEN C$="":RETURN 560 

6618 C$="1°3IF XX(6)=XX(7) AND YY(6)=YY(7) THEN C$=C$+‘3" 

6628 IF BS(6)=3 THEN C$="4" 

6648 RETURN 

6658 IF CA=3 THEN GOSUB 6690:TB(6)=1:TB(7)=13TT=63X=4: Y=4:KT(7)=FN T:GOSUB 2160: 
XKXC7I=EXSYYC7I=RAVSYT(6)=YT(6)¥1. 33 YT( 7) =YT(6)+52: RETURN 

6668 IF CA=4 THEN GOSUB 6698:1B(6)=1:TBC7)=1: TT=6: X=XX(2):Y=YY(2):GOSUB 2166: XX( 
TI=EKSVYCCI=AVEKTCPI=FN TiYTC6)=VYT(6)81.123YTC7)=YT(6) 3BS(6)=2: X=BMX: Y=BMY:GOSUB 59 
38 :RETURN 

6698 X=XX(6):Y=YY(6):;GOSUB 4046:TT=7:GOSUB 4648:TT=6:RETURN 

6700 IF BS(6)<>3 OR CF=1 THEN C$="":RETURN 13@ ELSE C$="564" 

6718 IF SF=@ AND BMX=EXX AND BMY=EXY AND EF>@ THEN C#="594" 

6746 RETURN 

6758 IF CA<>5S THEN 6755 ELSE X=BMX: Y=BMY 

6751 GOSUB 5960:A$=INPUT$(1):GOSUB 598@:IF AS=CHR$(13) OR A$=" * THEN 6752 ELSE 

A=VAL(A$):1F A MOD 2=@ THEN ON A/2 GOSUB 1250,1260,1278,1288:GOTO 6751 

6752 IF X=3 AND Y=3 THEN 6751 ELSE SWAP BMX,X:SWAP BMY,Y:GOSUB 5938:GOSUB 5946:G 
OSUB 595@8;:RETURN 

6755 IF CA=6 AND SF=1 THEN I=SGN(BMY-SUY )*3-SGN(BMX-SUX)+4:IF I=4 THEN 6798 ELSE 
NS=MIDS( HOS, 1*441,4) :MS="!AIVIFYUI IT INI TIE? 1794" 3L=13:GOSUB 1188:RETURN 

6768 IF CA=6 AND EF=1 THEN I=SGN(BMY-EXY )*3-SGN(BMX-EXX )+4:NS=M1ID$( HOS, 1*¥4+1,4); 
MH="!RIZVTFIPIVIF° 1 4L"sL=1:GOSUB 1188 

6778 IF CA=9 THEN M$=*J"73aTZ°VIZOINI E59! tI DES-F° 3: GOSUB 1200:FF=0 

6775 IF CA=4 THEN M$="NPMF !X!74"!25t°:GOSUB 1200: X=BMX: Y=BMY :BMX=1:BMY=1:GOSUB 5 
930 

6788 GOSUB 5958;RETURN 

6798 IF RF THEN M$="SI5°° 1 E!9I°-FIRIFFS-FISE! E7029" 3:GOSUB 1208:RETURN ELSE M$="% 
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I>°"*! yx! Ja IRF! 2F* sGOSUB 1280:SF=0:KYU=@8:RETURN 

68086 IF TB(8)=@ THEN C$=C$+"9" 

6848 RETURN 

68580 IF MP(XX(8),YY(8))=1 THEN M$="29I+!222F°:GOSUB 1200:MP(XX(8),YY(8) )=O:EXTH=E 
XT-13:KK=KK+13X=XX(8):Y=YY(8):GOSUB 5928 

68986 RETURN 

69808 RETURN 

6958 RETURN 

8808 WIDTH 8@,25:S=100:C!.S 2:CONSOLE @,25:L.OCATE ,,1 

8010 IF RF THEN PRINT ° RY OD" A FYUNG J NYY YOF FI DIT DYIDI. POH" > FI IRTILT D 
y9VI" 11°3S=S-580:GOTO 8840 

8820 IF SF THEN PRINT ° TF 19D" 3a J FaI{y DY TH LT be" IA FLFIW/D FA" NTDYI JY '? 
*3S=S-18 

8030 IF EF THEN PRINT “ TYVF195"%3 N ELVYFEF 3799.0°3S=S-10:31F SF THEN PRINT “° 
HOH D N TAPTKY 9 AVIYOI" ° 3S=S-20 


8840 IF FF THEN PRINT “ JPyb* N TB1L J Sey 5% 39RD F DYE" ANOG = TN DIDT- + "3 
S=S-25 ELSE PRINT “* Pyk™ FAKY J F = VIRIKN* FFF 3DVIZ’ 

8@5@ IF KK>S THEN PRINT °* KFE FAI DD* 9 AVLF WIT.’ :S=S+1B:IF EXT>2 THEN PRIN 
; Q*N* VW" FVOALE AAD. *:S=S-5:GOTO 87a 


8860 IF EXT>S THEN PRINT * DYVYFIL N I*ANGL = TIF YIWIAC’ :S=S-10 
8878 S=S-INT(CFN T/20)-EXT+KK¥2 
8888 PRINT *3"17 : JyN4 / THUNDERBIRDS / AYP? 9 E39 AMA." ZSTRBE(S)3° FY W354 IT 


8898 IF S<6@ THEN PRINT ° tees YYF$RD VIZIF J FPIN VWFTK* DN -+++ “END 
818@ PRINT °* SUF 37 PYF AIo IVD N KFE OLVBV90°31F FF THEN END 
811@ PRINT:PRINT:PRINT * (TBI J DAD PLUHVYOF DX JILELIIN Pub" DN” KL-S-PLIYE" = hb 


8120 PRINT * N5FD* 14 J AOR CF9/ 4 LT TUR OTLEYE* AY FI DIF. AAT VIESF* Pho 
8138 PRINT * IIb NO S*-2? F AS" PLE BITLe BY .TKTY AM Fob =" 
8148 PRINT * KIA) F ORY. 2 OSIIIT™ DOK SE" PAS93" ay BD BITTY? 
8158 PRINT ° 4#5/ DY PWHAIKN EAP IIL H/F 7H SPRINT 
8168 PRINT * ------- THE . END. ==--=== "END 

28188 RESTORE 48988:FOR I1=8 TO 25:READ A%:CU(I)=VAL("&H*+AS) :NEXT 
48888 DATA 9FFF19, Fh" DF19, PH" 39FID, PIST YA, TUTTI YD, RRRKR 

40810 DATA 2"39K9, fh" 9, TUFF, PTR, FDL TAO, FUT, OFYbI YANO R VIII, 5390, JYDI 
48828 DATA 20,8,0300,0088 ,8380 ,0000 ,0300,0000,80AF ,OBFO 

408380 DATA @GAG,0BAG,GBAG,00AG,BF2F ,Q0FF,3F20,EQFF 

40848 DATA 3F20,00FF,BFAF ,@OFF,3FAQ,FCFF,3FAQ,@00FF 

40058 DATA BF2F ,@GFF,3F20,EQFF,3F20,80FF,80AF ,OGFO 

48068 DATA BGBAG,GGAG, BBAG , BBAG,B300 , 8008 ,0380,6080 

48078 DATA 8308 ,8008 , 8000 , 8008 , 0000, 0000 ,0080,8008 

40888 DATA 20,8,80008 , 0000 , 0000 ,0000 ,8008 ,0080 ,0080 , 6000 

48098 DATA 80060 ,0080,0000 , 0088 , 0000 ,80008,00008,0003 

48188 DATA @83C,COFF ,8800,3C00,0008,0003,0F QF ,FCFF 

40118 DATA 8008 ,0000 ,0000,0003,AF02,FFFF ,0000,8800 

40120 DATA @@F8,8003,FFO03, 3FFF ,8000,80008,00F8,00802 

40138 DATA 2A08,AGAA, 0088 , B008 , B080 , 8008 , 0088 ,0880 

48148 DATA PAPAL FTE? PALIT INDIZDIAAHSIPA=! RPI DOM EPRIDFEYII 

480158 DATA JUN! FTO IRAF IO! FENIIE® | FTIOG® 

46168 DATA 37377337 

40170 DATA J*A7aI2A°y!PIPTAKOLYRZD® ITYVo IRYLTFEILY!I Fo LEFUFIIONIFPEO ILI 
40188 DATA T°PIP!AZ* TI  F° I DDLIPEL 

46198 DATA J*A7aLAPylION!IIW-TFINIYOD viv lL FO OFF? VAFORKOLIYAD 

46208 DATA FI°-TIF!ILFITFI A *AMWYTIASLIO TK? LIPO OKI OLEVZ 

46218 DATA 37937 

40220 DATA 373797 

46238 DATA 33337 

46248 DATA @ 

40250 DATA =" h°SF!IAIOOS* II" FI P-hIF" F°O@ 

48268 DATA A°ODS* I PIDQ-FIFOIZIIRENIATRIFFFEPI AZO” INPMFIERIAYKID 
a0270 DATA. N=7* FELIS 9R OURS  9L9 

48288 DATA 377777 

46298 DATA @ 

46300 DATA fO=!A° OOS" (Eh 1 P-hI DD I-F 

48318 DATA @,@,@ 

40320 DATA DI°-TIFVIEIZCYO! yIIAZI-bOL 

40336 DATA. 72° =F 1797? SIA VO EES Ol he E=a°” he lEF929 

40346 DATA PAISITPELIACVY: (PRZEAFVUUSFINNKTPE INI ADS? 1 OE IDD 

26350 DATA A=7* FT POINE 427" slag seh aye St VOON! Ae Ao Se Nese TARO 
AB3660 DATA. FOR" F° ! 3" D7alAZ°ot=TORV ITVS? 19LYZ9! ZSAElS1D?* 

40370 DATA S1>°* telly? ler? RIF ear PH LF-FAI FT? 91 

AG380 DATA JI"*PaIA° stores DI =F VF? I IDFOKIOLYAZO® VF OFVE!I DUAL LE PUROIINT® 
40390 BATA A=7° TEN S7s2* az tT I SOh Ae at tress | OLE" 972 

40406 DATA A-FT° FEIT" hIDFIOIATF® 

40418 DATA @,@,@,@ 

AGAZO. DATA FA°* VONIAZE a" VETER? tFP DRO EI VSSHL9y 

40430 DATA E=7F7- IS" OYNIGT TIF Fo ARIZ O a* 7° IRZKINIZISD 

40448 DATA FAYTIACULIOTPIALeEv!eyA! PURER! AVI 9FI999 

484508 DATA A°ODS*I-bIEYARINIFORIFO TREE RO DIO IVIARPAIZON 

46468 DATA @,@ 
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40470 ‘mm MA 
48480 DATA @,8,6,0,@ 
48498 DATA @,8,8,8,@ 
48588 DATA @,8,8,8,@ 
40518 DATA @,8,8,2,@ 
48528 DATA @,8,8,8,8 
48530 ° 
48548 DATA 
48558 “ MAP DATA 1 

480568 DATA -7,109,47,106,87,100,130,84,141,83,149,89 

48578 DATA 145,101,136,114,134,125,146,132,169,135,189,133 

48588 DATA 207,138,213,151,-209,31,208,51,204,66,195,86 

48598 DATA 196,96,212,105,234,107,247,1808,-156,117,168,126 

460608 DATA 198,119,186,1180,156,117,999 

40618 DATA 36,97,00,00,FF,36,132,08,00,AA, 216,97,08,08,AA,176,117,AA,AA,AA, 999 
486208 ° 

406308 DATA -396,79, 366,79, 347,91 ,366,183,395,1803,414,91 

48648 DATA 395,79,-372,85,363,91,372,97,398,97,399,91,398,85,373,85,999 

48658 DATA 363,86,08,A5,5A,383,94,AA,00,55,999 

48988 ° CURSOR DATA 

460918 DATA F,7,F003,F003,F003,F0803,F003,F003,F003,F003,F003 

48928 DATA FF3F,FF3F,FF3F,FCOF ,FCOF,FCOF ,F@03,F803,F003 

40938 DATA C@0@,CEBG,COBB,8B00 , 8008 ,8088 

41808 ° ALL INIT 

41818 COLOR 7,0:CLS 2:WIDTH 8@,25:LOCATE @,5:SCREEN @,@:FOR I=@ TO 7:COLOR=(I,1) 
>NEXT 

41828 PRINT SPC(2@8);° THUNDERBIRDS #4°;:PRINT 

41830 ° 

41840 MS="7"LIYRZ* 3 SUT RID YO99 DRUK “PLAID I TFA F1R J VPAFD* FL F°Fhao 3 
GOSUB 41288 

41050 M$="3"17 : YUR*IO D>" er TH. IXF7E SOS 9".°3:GOSUB 41280 

41660 M$=" NySyT"y NT YEVaIOR" Yh TYF195"%39".°3:GOSUB 41280 


® 


41878 Mt=" Q*LDD* bhIYD = NPDI VWF" TF t9y* al YyIWeI 334°:GOSUB 41280 
41080 M$="S"3> 3: DOK ILILI RON NvSvDF(ho TDR" 9S"I DE BPLT4.°:GOSUB 41288 
41898 M$=" Q*N*. FYFi9y"*a J FNIF* NVID* AIVF(W/ N V*B"Y ¥"~_'3sGOSUB 41288 
41100 M$="759> 3 F*YEVUa7 OR"YK bh F9O/D* F2DDWe’ sGOSUB 41280 

41118 M¢=" E> IVAN" INY DX AID. L#°UR = VIN D* DY" "sGOSUB 41280 

41128 M$="5" a7 >: DWI bYUPIRZ* DD" M*TF*E. WLILE* 4491359.°3:GOSUB 41288 


41138 M¢= Q°N*. S"197"*y F194 BF (73~2°3:GOSUB 41280 

41146 PRINT:M$="2]94h 3 9" 45"397" F"RA0 Dh (YFF#IR©’ 3GOSUB 41280 

41158 PRINT:M$="7"L¢Y2" 3: II-hk €E9F47 AXADN Vr(P-754 bh MOLE b --°:GOSUB 41280 
41168 PRINT:M$="2]4k : APZ Vth A477 Y* 1°3GOSUB 4128@:COLOR 6:PRINT:PRINT HIT 
ANY KEY" ;:1$=INPUT$(1):COLOR 7:CLS 

41170 DIM TB(1@),JT(10),KIK$(9) ,NINS(9) ,CND$( 18) ,C4(25) ,C5(49) ,C6( 49) ,xXS(4),YSC4 
»,FX(36),FY(36):RESTORE 41310:DEF FNR=INTCRND(1)*5)+1 

411880 FOR I=@ TO 9:READ NINSC( I) 3S NEXT 

41198 FOR I=8 TO 9:READ KIK$(I1I):NEXT 

41208 FOR I=@ TO 25:READ A$:C4(I1 )=VAL( °&W*+AS) sNEXT 

41218 FOR I=8@ TO 49:READ A$:C5( I )=VAL(C *&H*+AS) SNEXT 

41228 FOR I=@ TO 49:READ A$:C6(1)=VAL( °&H*°+AS$) sNEXT:RESTORE: RANDOMIZE VAL(RIGHTS 
(TIMES,2)) 

41238 1TB(3)=5:7TB(4)=5: 7TB(6)=4: TBC 7)=5: TB( 8) =4: KYUH1 3: RX=FNR: RY=FNR: RBX=1 :RBY=1 

41240 EXX=FNR:EXY=FNR:3 IF EXX=3 AND EXY=3 THEN 41240 

41258 SUX=FNR:SUY=FNR: IF SUX=3 AND SUY=3 THEN 41258 

41260 HO$="TYRL ETETYKO = EN“ >AIRL = F#9K7b69"° SRF=13EFH=13FF=1:SF=1:RETURN 
41270 FOR JT=1 TO 2:XS(1)=1:YSC1)=13NEXT 

41288 FOR I=1 TO LEN(M$):AM$=MIDS(M$,1,1)3:PRINT AMS; ‘M";:LOCATE POS(@)-1 
41298 IF AM$<>° °* THEN BEEP 1:FOR J=@ TO 20:NEXT:BEEP @ 

41308 NEXT:BEEP 1:FOR 1=@ TO 8@:NEXT:BEEP @:PRINT”’ °:RETURN 

41316 DATA 3°27, 2I9b NES his GPSS 9 HOR, 2D MS, 8° 40=7° 

41320 DATA BASE,1,2,3,4:59,MOLE, ,FIREFLY,0-82042 

41338 DATA 10,8,0000,003C,003C ,0000,300F ,300F ,8000,FC3F,FC3A,6606,FCFF,BCEA 
41340 DATA 6000,FFFF,88E8,0000,FFFF,@BE@,0000,FF3F ,80230,80000,FC8F ,8888 

41358 DATA 10,10,0000,FO00F ,8000 ,0000,300C,C083,0828,382C ,C803,808008,FRGF ,8080 
41368 DATA 88600,CBB3,0008,AAAA, AAAA, BBB8B,A82A,ABEA, 0B08,AGQA,A3CA, BBB8 

41378 DATA 88002,83C2,0008,ABBA,AGGA, 0008, A82A,A82A, 0088, 2828, 2828, 8088 

41388 DATA 08088,0C38,0008 , 8000 ,8C30 ,0088,0008 ,0C30 ,8088,8008,8C38,8008 

41398 DATA 180,10,0000,0000,FOGF ,8002,0000,300C,8002,0008,300C ,80C38,0080,FR0F 
41408 DATA @BFF@,8088,F3CF ,@3C8,8008,F3CF,83C8,0008,F3CF ,88008,0008,C803 

41418 DATA @000,0000,FC3F,FOOF ,FOUF,FC3F,FOGF ,8000,0C30,FQO0F ,FAQQF ,FOOF 

41428 DATA FOGF ,G888,00808, 0800 ,B008 , 8808 , 0000 , 0000 , 0000 , 8808 ,0000,0008 

41430 ° 

41446 

41450 

41468 

41476 ° 

41480 °“xx**x Thanks for THUNDERBIRDS plaing. *** 

41498 ~* 

415808 * from GAME ARTS AKIRA-EYE & T:SHIMADA 
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FM-7DU-—Z% “BRU 9S—/\-KS -L' ees 9 


PAAT WM CHIEI EW IAIE, UDFOAYVARRA 
HL CSEbWy FAH 2—-7 VCS SZ, = 
#4, SAVE*THDATA’ A[RETURN], 7272, GE 
LTbbwRWDA(L HASNT -STFUTFIAMBA 
SITET AYE—T4ATIC. GAOT —F7 TEESE 
TCH-TFTSZHGeGCIz. HAFECNT-IDITA 
WHR RELAX “THDATAS’ &EYENEFZIZ RENAME 
bo CBW Cl LVIO72, “PYF HAN =H FF HL’ DSA 
SIOZ IAs. “THDATA’ £65 774 WZO7'=— 
Y x AIAA CMARGEFTZODG ML F-IN TIS 
An Bld, BlZ *THDATA’ (CL THK VEMHAAVD?:, 
Se ETO yE—P 4 ATILRRBOMHASAIL, HAD 
T-7BeEPe=7 LC OOO: JIOT 4 ATI 
e—-TLTASAlEYWYONCIZWD, 4+BG, OA 
YC SSD, BVENVLELMYSNARAS. 


FAATMRMANIVE. 6A SIGMA AT V7 
B77ALeRUNS+C, AMO RIC Es THHIELT 
VUIFIZ, AT LICRREANY FY ACHENAlEFE, 

F—TRAA SL, SHAPAIFIARANHE Ae 
yk F—-TIz SAVE ‘CASO: THDATA’ A[RETURN] © 
2—T75 Ss CLETGCASOS 4 YTRTIFIARVYY 
ITO—F LR, ADP -YTFAU7FILDF—FEr 
yh. HKlt, RUN[RETURN] C7 —2Alsth $B. 

PARTIR Bey RE BI, BH Alcs, 
PRE-L-—FELTHK, EMU CLONE 
ye a ae 

WEF ICRB L Td. 854F 6 ABOUTS v i2fBRS 
NCR AtY FJ—-N— FORHe BIBL TEL, 

Cd, ee BB UT SY FS FL’ Iz 
(ay Fo CATT e S72 


378 M$="=RPI=2*sIF MACTY) AND JT(TY)<TIME/S/MACTY) AND JT(TY)<MACTY)-1 THEN M$=M 
ESSCTY JTC TY) 8 JTCTYISAIT CTY 41 

2118 : 

2138 GOSUB 1190:X=XX(TT):Y=YY(TT):GOSUB 3040: TB(TT)=1 

5000 “--- ELSE 

386186 IF MAP(XX(TT),YY(TT))=1 AND TT<3 THEN MS=NINS(TT)+° sYathe! bho D7SY" © 7 TY ST! FO 
Q\2=e°* :GOSUB 116@:RETURN 

59626 IF TT=6 AND TB(7)=1 THEN TBC 7)=0:XX(7)=4:YY(7)=43X=4: Y=4:TT=7:GOSUB 3040:GO0 
SUB 3140: TT=6:M$="=F#! KE! FZ° 1 IANKe IAP OOS"* 1 71NIZSL':GOSUB 1200:BMX=1:BMY=1:GOSUB 594 
8@:BS(6)=3 

5@3@ RETURN 

5588 “--- TIME TABL 2 

551@ IF TB(2)=1 AND BS(2)=1 THEN IF KT(2)+TIME>6@ AND JT(2)=@ THEN BEEP 1:M$="7" 
L4y2"* 3°+MES$(2,8):GOSUB 1160:BEEP @:JT(2)=1:KIK$(7)="7"L4*:TB(7)=4:GOSUB 3140:G 
OSUB 301@:LOCATE 63,13:PRINT “7"L¢2>";:GOSUB 301@:LOCATE @,24 

3528 IF RND*¥9@<1 THEN X=FNR:Y=FNR: IF X<>4& AND Y<>4 AND MAP(X,Y)=@ THEN M$="439!E 
-Y9"°;GOSUB 120@:MAP(X,Y)=1:GOSUB 5910 

59538 IF BMX=RBX AND BMY=RBY AND RF=1 AND CF=@ THEN M$="A°D9OE"!PIIIO-TIRIFFES-F'SG 
OSUB 120@0:CF=1:RETURN 

59546 IF TIME/8>RB AND RF=1 AND CF=@ THEN RB=RB+1:X=RBX:Y=RBY:GOSUB 5930: X=SGN(RN 
D¥3-1):Y=SGN(RND¥3-1):IF RBX+X>@ AND RBX+X<6 AND RBY+Y>@ AND RBY+Y<6 AND RBX+X<> 
3 AND RBT+Y<>3 THEN RBX=RBX+X:RBY=RBY+Y:GOSUB 595@ ELSE GOSUB 5952 

55586 IF TIME>2@@ AND FF=1 AND BS(1)=2 THEN FF=2:BEEP:M$=NINS(1)+°3 "+" !UC2IAIYETh 
SHAQ II IDTH rE AFIF® 1F° - RI°VOF* sGOSUB 1160:MS$="2RiR"!yITVOFSIFo I~ V? 1 FEVIF*S7IIIVES 
\EFUF-F-FNIF°ITIQ*3:GOSUB 1200 

556@ RETURN 

59918 1=Y¥*5+X 3 X=X*48-16-16*RND: Y=Y*24+24-8*RND3FX(1)=X:FYC(1I)=Y¥sPUTQA(X, Y)-(X+15,Y 
5928 T=Y¥*5+X3X=FXC 1): Y=FYC I) sPUTQACX, Y)-(X+15,Y+7),C4,XOR:RETURN 

5938 X=X*48+230: Y=Y¥*24+15:LINE(X,Y)-(X+15, ¥+15),AND,@,BF:RETURN 

5948 X=BMX*48+238 : Y=BMY¥24+15:PUT@A(X, Y)-(X+15, ¥Y+15),C5,PSET: RETURN 

5958 X=RBX*48+23@8: Y=RBY*24+15:3PUT@A(X, Y)-(X+15,Y¥+15),C6,PSET:RETURN 

5968 SYMBOL (X¥48+224,Y*24+16),°<>*,1,1,7,,XOR:RETURN 

6888 “ ELSE 3aY 

6108 IF TB(1)=@ AND RF>@ THEN C$=C$+°6" 

6118 IF XX(1)=RX AND YY(1)=RY AND RF=1 THEN C$="@67°:RETURN 

6120 IF FF=2 THEN C$="18" 

6138 RETURN 

615@ IF CA=6 THEN I=SGN(YY(1)-RY)#3-SGN(XX(1)-RX)+431F I[=4 THEN M$="h*“E=!E-2°79° 
“!ty!hFIF%°sGOSUB 1208:RETURN ELSE NS=MID$(HO$S,1*4+1,4):M$="!AIZIFU! RE * E=to ERE ROL" 
tL=1:GOSUB 118@:RETURN 

6168 IF CA=7 THEN M$="E-2" 3°“! y!EF92E2F°:GOSUB 1200:RF=8:CF=@:RETURN 

618@ IF CA=8 THEN IF TIME<23@ THEN M$="A°40-7° s!UC2ZINIYET bh? HRAR* ly IT-hOFIA-TPo ly 
'F#S4F>°3:GOSUB 1160:FF=@ ELSE MS="NA°-D- s IMA PVISEISO*S* ho RFE? IEKORIRIOF IAT HO AF’ 
FF=3:GOSUB 1168 

6198 RETURN 

6208 RETURN 

6248 RETURN 

6258 RETURN 

64868 RETURN 

6458 RETURN 

6608 IF TB(6)=2 OR CF=1 THEN C$="";:RETURN 568 

6618 C$="1°:IF XX(6)=XX(7) AND YY(6)=YY(7) THEN C$=C$+"3" 

6620 IF BS(6)=3 THEN C$="4° 

6646 RETURN 

6658 IF CA=3 THEN GOSUB 6698:TB(6)=1:TB(7)=1: TT=6: X=43Y=4:KT(7)=TIME:GOSUB 2168: 
XXC7I=EXSYYC7IRHVSYT (6 )=VT(6)81.38YT( 7) =Y¥T(6)45:RETURN 





2080 LOGIN 1985 No.9 


BFM-72'J—-Z2A° BRU YI—N\—KA—-L JOT LIAR 


6668 IF CA=4 THEN GOSUB 6690:1TB(6)=1:TB(7)=1: TT=6: X=XX(2):Y=YY(2):GOSUB 2160:Xx( 
TI=X2VYC7I=V2KT C7 )=TIMES YT(6)=YT(6) 1.13 YT(7)=YT(6) 2BS(6)=2: X=BMX: Y=BMY:GOSUB 59 
38 :RETURN 

6698 X=XX(6):Y=YY(6):GOSUB 3048:TT=7:GOSUB 3040: TT=6:RETURN 

6788 IF BS(6)<>3 OR CF=1 THEN C$="":RETURN 13@ ELSE C$="564" 

6710 IF SF=@ AND BMX=EXX AND BMY=EXY AND EF>@ THEN C$="594" 

6748 RETURN 

675@ IF CA<>5S THEN 6755 ELSE X=BMX: Y=BMY 

6751 GOSUB 596@0:A$=INPUT$(1):GOSUB 596@:IF AS$=CHR$(13) OR A$=" * THEN 6752 ELSE 

A=VAL( A$): IF A MOD 2=@ THEN ON A/2 GOSUB 1250,1260,12780,1280:GOTO 6751 

6752 IF X=3 AND Y=3 THEN 6751 ELSE SWAP BMX,X:SWAP BMY,Y:GOSUB 593@:GOSUB 5946:G 

OSUB 595@:RETURN 

6755 IF CA=6 AND SF=1 THEN I=SGN(BMY-SUY )¥3-SGN(BMX-SUX)+4:IF I=4 THEN 679@ ELSE 
N$=MID$( HOS, 1*44+1,4)3MS="! A! IIE! PF INI 94! F° 1 944L°:L=1:GOSUB 118@:RETURN 

6766 IF CA=6 AND EF=1 THEN I=SGN(BMY-EXY )*3-SGN( BMX-EXX )+4:N$=MID$( HOS, 1¥4+1,4): 

M$="!RIAVIF!FIY!F° 14D" 3L=1:GOSUB 1180 

67708 IF CA=9 THEN M$="J"73aI2°4!-OINT F591 EI NSE-F"° 3;GOSUB 1200:EF=0 

6775 IF CA=4 THEN M$="NPMF!2!74"!235t°:GOSUB 1200: X=BMX: Y=BMY:BMX=1:BMY=1:GOSUB 5 
938 

678@ GOSUB 5958@:RETURN 

6798 IF RF THEN M$="S12°* !E!192°-F IRI FFS-F!ISE!1¢2029"°3:GOSUB 120@:RETURN ELSE M$="2 
ID>°"!y!7aI2ZF!2AF*:GOSUB 1200:SF=8:KYU=0:RETURN 

6808 IF TB(8)=@8 THEN C$=C$+°9° 

6848 RETURN 

685@ IF MAP(XX(8),YY(8))=1 THEN M$="241I4!2=2%°:GOSUB 1200:MAP(XX(8),YY(8) )=@:EXT 
=EXT-1:KK=KK+13X=XX(8):Y=YY(8):GOSUB 5928 

6898 RETURN 

69868 RETURN 

6958 RETURN 

8008 WIDTH 8@,25:S=18@:CLS 2:CONSOLE 6,25 

8818 IF RF THEN PRINT “ ROD" 4 FPUNS J NOVY YOF 9 JIT DVIDD. FOV" > 9 IRTILT D 
"9D9" 11°3S=S-5@:GOTO 8848 

8820 IF SF THEN PRINT “* TYFIIS”" 3a J 5a74yY DY TH = bE“ IX BLIAM/- F2°NTHNWI JN 17 
*3S=S-10 

80308 IF EF THEN PRINT * TYFi9y"3a N ELVFF 23299," 3S=S-10:31F SF THEN PRINT ° 
HOU" N AAPTKS 9 T9PYDI"* $S=S-20 

8840 IF FF THEN PRINT ° 79k" N TBL J ded 2" 39K9 FD D*YE"2NO4K = TN SIBVIT + ++ "3 
S=S-25 ELSE PRINT ° F9bK" 2 TABY J F = DIRIKD” FFF 3993" 


8858 IF KK>S THEN PRINT “ KFE VXI NS" 9 AVIF WIT.” :S=S+1O:1IF EXT>2 THEN PRIN 
tT” 9°N” YI” TFZIALE 44099. °:S=S-5:GOTO 8876 
806@ IF EXT>S THEN PRINT * SYVYLFIL N IANA = THF FIWVIA.” :S=S-18 


8878 S=S-INT(CTIME/2@)-EXT+KK¥2 
8888 PRINT “3"“17 3: 3¥D4 / THUNDERBIRDS / DYP? 9 CSOD AHH.“ SSTRBE(S)3° Fu I 94 PT 


8898 IF S<6@ THEN PRINT ‘ ss FYtaD V9ZIF J FNIN D/FLK” DN - +++ * SEND 
8108 PRINT ° SUF 37 PYF WIe IPD N bFE OLb34352°3IF FF THEN END 
8118 PRINT:PRINT:PRINT ° (TB1 J DAO DUAYOF ND” DILEILIIN DUb* NY KL-S-P7L9YK" = 4H 


812@ PRINT * NIFD° 4 J AhHOK 8 F954 = TDR OPIS US° AY FI NTF. AIFVIESF" Pho’ 
813@ PRINT * DAIK NB" x7 2 ASS O° VE B97 Le D° F499 D* For* =" 
814@ PRINT * R2A"D F AWAY 2 O99IT™.. DLN =h° bh YKSDS° 29 D* YRITITSD ==>" 
815@ PRINT * #3/ DY AWELIKN EAP ILI THIF PH )* SPRINT 

8160 PRINT ° ------- tHE: (END) -===<=<== *;END 

40808 DATA 94FF19, Fh" 9F19, FE" 39FI9D, PISF UA, CIID, HHH 

48018 DATA 5°39K9,fh"9, IFT, PTRY FDNY, TKO, IF, OFYbI YD NOR D997, 5390, SUIT 
48820 DATA 806C,00080,AFC1,4000,1FFF,FFQ0,AFFF,FFQ@ 

40038 DATA 1FFF,FFO6,AFC1,4000,000C, 0008 ,0600,0008 

40848 DATA @00C,0008,AG82,8000,103F ,FFE@,AQ3F,FFFC 

46058 DATA 103F ,FFE@,AQ02, 8000 ,800C, 8008 ,6000 ,8080 

48068 DATA @66C,08008,AA01,4000,157F ,FFQ8,AABF ,FFGO 

46878 DATA 157F,FF@@,AAQ1,4000,800C, 8000, 8008 ,0000 

48088 DATA @,8,0,0,8,8,8,8 

480698 DATA @,3C,86,8,0,80,8,8 

48108 DATA @,8,80,8,0,8,8, 380 

40118 DATA 8000 ,0308,0000 ,0300,F400,03D0,F800,0100 

48128 DATA 88006 ,0000 ,0000,0008,0000 ,8000,3C88,FFCO 

40138 DATA @F63,FFFC,628F ,FFFF,@3FF,FF2F,0015,555@ 

48148 DATA PAPAIYTFE NALIN DILDO IAAH/IPA=H! RAPID" EORIDEVYII 

48158 DATA JUNIFT°IZAFIQ!FNI7F° 15799" 

48168 DATA 99979 

40178 DATA J*7aIZ°aIPIPAKOLYRI® IV? I RVTFEIIVY 1 $9 LEFUFIONI FO IIIG 
480188 DATA F°IPIAZ* IIA" F9 I NDKIPEL 

48198 DATA J*ASIA°HIZINIDI-FINIYOD ol rl Fo OFF? IAF ORAOLIVRO 
48208 DATA 92°-F!I x! ITFAFII*AWYTIASLIO PH? | IPOOKIOLEUR 

48218 DATA 979999 

48220 DATA 39399 

48238 DATA 33777 

48248 DATA @ 

48256 DATA ="bh°SF!IA° OOS" II * FI P-h7F" F°R 

48268 DATA A°O9S*!IPIDI-FIFOIRZAIZRENI IRI FF EP! ZO" INPMFIRIAYKOD 
48278 DATA A-T°IENYETRIOLRI YEON 

46288 DATA 93397 

48298 DATA @ 

40300 DATA f0-!A°O9S" Sho! tbh! WYa-F 

48318 DATA @,@,@ 

40320 DATA 92°-TIFVIEIZ° YO! eI T2Z=—-hOL 

48338 DATA 2V°-TIYOP MINI ITE SOI AOE =7°"* LIL EFORI 


LISTLOG 281 


BFM-7P'J—-AZ°* BRU I—-/N\—-KIF—-L" JOTSLIAR 


480348 DATA FN! SITEIIADF: I PRERFVISFIA-TOINIZTE? I hOEDIIA 

40358 DATA A-ToIFIOINEIARPO LIN AFFO ILIV FIV OVONI AOR MII EAT IROL 

48368 DATA FOR" Fo!" D7aIR°yvILORIITIHF° IOLYURDIASALINSIE°" 

46378 DATA 2IB°*IEIZYVO FN RTORIF LIT IIRL F-FANI FOIL 

40388 DATA D°A73aITA°VIZDICI DI —-FIF 2 VIDFORIOLYURZO™ NL OFUEITINIZ Eh? PI MOINS? 
40398 DATA A-ToIEINHTER  SFITISOL* 2° aFl vl FFIT OLE? 997 

48400 DATA A-TTIEINZ* hIDFLOL AFF? 

480418 DATA @,@,@,@ 

4Q420 DATA FAC“ IPNI2ZDD* HEL FERZ® Fo DoE LSS O=L9IY 

48430 DATA E=7FP- FE" OYNI GT LE" Fo TRIER a POIZKINIZTI 

40446 DATA FAYTIACULI OTP IALRYD RFA HURERIIVI9F 999 

AB458 DATA ACDOS*H-hIMaACLINIC ORI FO REL ROE DIDI DIR AION 

40468 DATA @,@ 
40470 ‘—_ MA 
40488 DATA @,8,8,8,8 
48498 DATA 8,8,6,8,@ 
465880 DATA @,@,8,8,@ 
48518 DATA @,8,8,2,8 
48520 DATA @,8,8,8,8@ 
48530 ° 

48548 DATA @ 

40556 ’ MAP DATA 1 

40568 DATA -7,109,47,106,87,100,130,84,141,83,149,89 

40570 DATA 145,101,136,114,134,125,146,132,169,135,189,133 

480588 DATA 207,138,213,151,-209,31,208,51,204,66,195,86 

480598 DATA 196,96,212,105,234,107,247,108,-156,117,168,126 

40600 DATA 198,119,186,110,156,117,999 

40618 DATA 36,132,4,216,97,4,176,117,7,999 

48620 

406380 DATA -396,79,366, 7%, 347,91,366,183,395,1803,414,91 

480648 DATA 395, 79,-372,85, 363,91,372,97,398,97, 399,91, 398,85,373,85,999 

46650 DATA 363,86,6,383,94,1,999 

41000 “© ALL INIT 

41018 COLOR 7,@:WIDTH 8@,25:LOCATE @,5:SCREEN 7,7:FOR I=8 TO 7:COLOR=(1,1):NEXT 
410280 PRINT SPC(2@); "THUNDERBIRDS #4°:PRINT 

41038 ‘GOTO 41158 

41040 MB="7"LIY2"* § SUT RID YONI ORYK OD LAQYs I TFALe FIR J VPAFD IA F Fhe 3 
GOSUB 41288 

41050 M$="35"17 : YLR"JO B*r TL. I*7tE SOS F9*.°:GOSUB 41280 


41868 M$=" NYT") NT VSVaIOR* bh TYF195"%39".°s:GOSUB 41288 

41878 M$=" I*LOD"” h5ND = DPII YF" TyFa9y* al YyIIeI 354° :GOSUB 41288 
41688 M$="S"3ay ¢ DH" bh ILILJ RON NvSLEF(ho IDK" OS"I DE BLT4.°:GOSUB 41280 
41898 M$=" 9°N*. FVFtroy" a J FDIF* NID” AIVFLIW/ N F*>"*Y 9" ~°:GOSUB 41288 
41100 M$="75> 3: T*Y5Ua7 DA*Yb bh 19/D" F2DDWe' sGOSUB 41288 

41118 M$=" E> I*ANINY DN” AIF, L#°YUR = VINL D* THY" *;GOSUB 41288 

41120 M$="5"357 3: IDYD HYPIZ” NS" M*TF*EL ILILF* 449139.2°:GOSUB 41280 

41130 M$=" 9*N”. S197" > £194 FF 1(73-°:GOSUB 41280 


41140 PRINT:M$="2D9h : 9°45" 397" F° Rae Dh (4YFFIRO’ :GOSUB 41280 

41158 PRINT:M$="7°L4D2"3 LI-h ExF(7 AMDN Pr{t-754 b MOLE k --*:GOSUB 41288 
41166 PRINT:M$="2]%k : APD? Dt¢h 4477 Y* 1°3GOSUB 4128@:COLOR 6:PRINT:PRINT ‘HIT 
ANY KEY" ;:A$=INPUT$(1):COLOR 7:CLS 

41178 DIM TB(1@),JT(10),KIK$(9) ,NINS(9) ,CND$(18),C4(24),C5(5@),C6(58),xXS(4),YSC4 
»,FX(36),FY(36):RESTORE 41310:DEF FNR=INTCRND(1)*5)+1 

411808 FOR I=@ TO 9:READ NINSC(I):NEXT 

41198 FOR I=@ TO 9:3READ KIKSC(I):NEXT 

41200 FOR I=8 TO 23:READ C4(1):NEXT 

41210 FOR I=@ TO 47:READ C5(1)3:NEXT 

41220 FOR I=@ TO 47:READ C6(1I):NEXT:RESTORE:RANDOMIZE TIME 

412380 1TB(3)=5:7TB(4)=5:7TB(6)=4: TB 7)=5: TB( 8) =4 :KYU=1 : RX=FNR: RY=FNR: RBX=1:RBY=1 
41240 EXX=FNR:EXY=FNR: IF EXX=3 AND EXY=3 THEN 41246 

41258 SUX=FNR:SUY=FNR: IF SUX=3 AND SUY=3 THEN 412580 

412680 HO$="trRY STETYKO =D ED“ 2AI704 F+9HT769"°sRF=1:EF=1:FF=1:SF=1:RETURN 
41270 FOR I=1 TO 2:XS(I)=1:YSCI)=1:3:NEXT 

41288 FOR I=1 TO LEN(M$) :AM$=MIDS(M$,1,1):PRINT AMS; 

41298 IF AM$<>* *° THEN J=@:WHILE INKEY$="" AND J< 203 J=J+1:WEND 

41308 NEXT:BEEP 1:FOR I=@ TO 8@:NEXT:BEEP @:PRINT* °:RETURN 

41310 DATA >*17,2309b, A -3°W, , pba, RRR, I* Kh Y,NO R0-7° 

4132@ DATA BASE,1,2,3,4,5,MOLE, ,FIREFLY,O-wN2072 

41338 DATA 15392,3888,16380,-4,-1,-1,16383,4092,15392,3888,15188 

41340 DATA -10884,-6005,-12281,12298,1028 

41358 DATA @, 320, 4740, 8, @,-21846, 5468, 2720 

41368 DATA 328, 2720, 5460, 10280, 6, 8B, B, @ 

41378 DATA 46080, 3440, 119680, 4080, 968, 21845,-5461,-15021 

41388 DATA-15741, 13680, 180920, 5140, 12308, 12300, 12300, 12300 

41398 DATA @, 968, 968, 8, 8, B, B, @ 

41408 DATA @, @, @, @, @, @, 8, @ 

41418 DATA @, 320, 640, 12300,-4081,-16381,-16381, @ 

41428 DATA @, 4088, 4080, 48080, 4086, @, @, @ 

41430 DATA @, @, @, @, 8, B, B, @ 

41448 DATA @, 4080, 8, 4088, 6, 8, 8, @ 

41458 DATA 4080, 3120, 3128, 8180,-4101,-12301,-15421, 968 

41468 DATA 16388, 16380, 12300, 4080, 8, 8, 8, @ 


41470 

41480 “x**** Thanks for THUNDERBIRDS plaing. **** 

41498 * 

41500 ° from GAME ARTS AKIRA-EYE & T:-SHIMADA 
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(EEA CMMSXVOUUlil4, VU VBE 
AIMRREISTBSNTUOGY, VoL 
RKAATFSeA&lS, INK—VITIBRLE 
FOFILEAAL THEA, CNTF 
DA DLSFAR MEIN TC. CSAVES 7 Pf 


to >{BFR, WH. F141 AD eH THOSA 
($, ROM-BASIC €—F C{#R TS ¢, # 
t= 32KLLEMMSX VY Y CATH, (85 
SHE CERUOOC: LES: 
CLOAD[RETURN | C7O7FL40O—-¢L, 
RUN[RETURN | $4, FSX. by FP RLR 
ET ET PHACBAC KOC ah 
PDOAALEILZLTATOSILO‘MB 
REBUN CHR ST Bie 6HEMCTANL TEL 
L\, CI C[RETURN] & FATE, OKM Fle 
CLEARXARMRSENS, A-—VWILAS CN 
HILATU SICAL. 63—B [RETU 
RN| &FFUTIELLY, BUOK AHS, [F-1 
CTC 56 C2IDE= FLAS, ESF 
E— FCI IVY EIS, ROAVDEE, 
@SAVYY KE F-FeFHT SACL SIF 
4. TL AlSBOOOBHASADTLEM BH, 
SBOO0|RETURN| $4, PKLAIS | SPACE) 
C1DHEA, [BS] T1 DRS, “ME—-KM 


EE 





@DAVY KF LEVANT —-FETIAZA 
TUF ICRREAHSIVYE, BOOORHA 
bCFFFRWETONANBRSRK UY Als, 
DB000, CFFF[RETURN] CULs, 564A 0 
TA A{LIRONF LYD HLT ECRRENS, 
@PAVYY RK KLEYVADNF-FAT YL 
FIZFT OWT, MSDIV YF CMU. 

@eBIYYF BASICIZRS, 

SCY FEY FVLOReO LL, . Fz 
YADLASHRILUAIS, F—-INSEHE 
te, BRU ANF oryvyAG-LraAAler 
YAKNFILTYIGLELENTHESAIE, 
—FETAD SL ADHABT SLU HY) ASE 
TU ADEEERE TE OTE, 

VU VBA hd 1ATICDE BINT BS 
DIHRLT SD, 1BAICRMRENTS 
DR. VAT LCDOF E97 Fks. 3247 —¢ 
IX. CNELARILFRRENTUADAK 256 
Wf bLCENFzYIVAE. BE. VF 
S1BAATINIP EL, RK 279K 
F8IWNT-—F9, CNAMFrvAtLe 
U9 BUIT#BAK SA MTLSD, FT BIAE MIN 
lS 5BUOOIS, BARN 279NF—-Y% 
BOTT, hE E 9 (ota. 





MSX¥V7YHRE-—FJIOISL 


10 CLEAR10,&HEFFF:SCREENO:PRINT"TOP ADDRESS”; :GOSUB200: T=A 
20 PRINT“END ADDRESS”; :GOSUB200:E=A:IF T>E THEN1O 

30 A=&HFAF5:D=T:GOSUB220: D=E: GOSUB220 

40 IF 62336!-&H240>E THEN DEFSNGA-Z:GOTO60 

50 IF T-&H241<36287! THEN PRINT"CAN’T RUN!!”:BEEP:END ELSE 
DEFSNGA-2Z:F=1 

60 A=&HFAF5:GOSUB230: T=D: GOSUB230: E=D 

70 IF F THEN M=T-&H240 ELSE M=62336!-&H240° 

80 PRINT:PRINT"NOW MAKING MONITOR OBJECT [ “HEX$(M)"~-“HEXS ¢ 
M+&H23F)° J 

90 FOR I=M TO M+&H237: READA$: POKEI , VAL("&H" +A$) : NEXT 
100 FOR I=0O TO 4:READ A$:CCI)=VALC°&H" +A$) : NEXT: I=M 

110 PRINT"REWRITE ABSOLUTE ADDRESS...°:PRINT 

120 A=I:GOSUB230: IF D<53248! OR D>53823! THEN180 

130 I=I-1:A=PEEK(CI) 

140 FOR J=0 TO 4:IF A=C(J) THEN D=D-65536!-&HDOOO+M 

160 NEXT 

170 I=I+1:A=I :GOSUB220 

180 IT=I+1:IF I<¢M+t&H237 THEN120 

190 DEFUSR=M: KEY1, “A=USR(0)"+CHR$ (13) 

191 PRINT“clear 10,&h"3:IF F THEN PRINT HEX$(T-&H241) ELSE 
PRINT HEX$(¢(T-1) 

192 PRINT STRING$(3,CHR$(30)):NEW 

200 INPUT A$: A=VAL("&H"+A$):IF A<O THEN A=A+65536! 

210 RETURN 

220 POKEA,D-INT(D/256)*256: POKEA+1, INT(D/256) :A=A+2: RETURN 
230 D=PEEK(A)+PEEK(CA+1)*256:A=A+2: RETURN 

240 DATACD,6C,00,21,2D,D2,22,B7,FF,FD,21,FB,FA,CD, 3E,DO0 
250 DATACD, 3B, 00, 3E,C3,32,B6,FF,11,0D,D0,D5,CD,23,D2, 3E 
260 DATASD,CD,A5,00,CD,AE,00,D8, 23, 7E,FE,5D,20,01,23,7E 
270 DATACD,DB,D1,FE,20,28,F7,B7,C8,FE,42,20,07,D1,3E,C9 
280 DATA32,B6,FF,€9,FE, 4C, 28, 3E,F5,CD,E4,D1,38,1A,F1,FE 
290 DATAS3,CA,E3,D0,F5,D5,CD,E4,D1,E1,38,0C,F1,FE,44,CA 
300 DATA43,D1,FE,50,CA,40,D1,F5,F1,CD,C0, 00, 3E, 3F,CD,A5 
310 DATAOO,C9,C5,E5,CD,E4,00,E1,C1,30,06,C1,CD,E7,00,18 
320 DATAE8,77,23,10,ED,C9,23,7E,FE, 2E,20,DD,CD,E1,00, 38 
330 DATAEB,06,0A,C5,CD,E4,00,C1,38,E2,FE,D0,20,F3,10,F3 
340 DATA21,38,D2,06,06,CD,72,D0,36,00,21,32,D2, 7E,B7, 28 
350 DATA06,CD,A2,00,23,18,F6,CD,23,D2,CD,E1,00,21,F5,FA 
360 DATA06,06,CD,72,D0,CD,E7,00, 2A,F5,FA,CD,B5,D1,CD,17 
370 DATAD2, 2A,F7,FA,CD,B5,D1,CD,17,D2,2A,F9,FA,CD,B5,D1 
380 DATAC3,23,D2,EB,CD,B2,D1,CD,D2,D1,3E,2D,CD,A5,00,CD 
390 DATA9F,00,FE,0D,C8,FE, 20, 20,03, 23,18,E8,FE,08,20,03 
400 DATA2B,18,E1,CD,13,D1,38,DC,CD,9F,00,CD,13,D1,38,D4 
410 DATA23,18,D1,CD,DB,D1,CD,A5,00,FE,47,30,17,FE,41,30 
420 DATAO4,FE, 3A, 30, 0F,FE, 30,38,0B,FE,41,38,02,D6,07,D6 
430 DATA30,ED,6F,C9,FD,7E,00,77,CD,23,D2,CD,69,D0,37,C9 
440 DATACD, 3E,D0,AF,32,FC,FA,CD,B2,D1,CD,17,D2,7D,81,F5 
450 DATA06,08,CD,D2,D1,F1,FD,86,00,F5, 3A,FC,FA,FD,86,00 
460 DATA32,FC,FA,23,10,EC,CD,17,D2,CD,17,D2,F1,CD,BB,D1 
470 DATA2B,E7,30,10,23,CD,94,D1,38,0A,7D,FE,08,30,C8,CD 
480 DATA8B,D1,18,BF,CD,8B,D1,CD,23,D2,C9,CD,17,D2,3A,FC 
490 DATAFA,C3,BB,D1,CD,B7,00,D8,E6,02,C8,CD,A6,D1,CD,B7 

500 DATAOO,D8,E6,02,28,F8,06,00,10,FE,CD,B7,00,E6,02,20 

510 DATAF7,C9,CD,23,D2,7C,4F,CD,BB,D1,7D,CD,BE,D1,0F, OF 

520 DATAOF,OF,F5,E6,O0F,C6, 30,FE, 3A,38,02,C6,07,CD,A5,00 

530 DATAF1,C9,CD,17,D2,7E,FD,77,00,18,E0,FE,61,D8,FE,7B 

540 DATADO,E6,5F,C9,11,00,00,06,05,D7,CD,DB,D1,FE, 2C, 28 

550 DATA24,B7,28,21,FE,41,38,03,FE,5B, 3F,EB,30,06,D6, 30 

560 DATA30,08,18,O0F,FE, 47,30,0B,D6,37,29,29,29,29,B5,6F 

570 DATAEB,10,D6,37,C9,B7,C9,F5, 3E,20,CD,A5,00,F1,C9, 3E 

580 DATA20, 18,07, 3E,0D,CD,A5,00, 3E,0A,C3,A5,00,33,33,C3 

590 DATAA2,00, 46, 4F,55, 4E, 44, 3A,11,21,C03,CA,CD 
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ONAFIVItL JOTSLIIAR 





VISBIDTUAROFIYITLICIWT 





OTA LOR EIIGMS NTO ZF 
ay 7PAlt, FT PFULAS EMS Ey 
PCE27 7), PRES Ee h( P27 7) 
[alt . €hlf99¢( 8277 = 
FNTMARAAMAM FIBE yb CP 
2797) FHRMTSLVI7+—-—vy bh 
eHRAL TWA, DEY, FT HMA 
THT IRS OAs, FarZ7vsS 
MBP RG5TC Sb, Fic thik 
SHTWAZTFTAOFIAYVAL SAB 
FA Siwls, Vy ye eT 
MEIER F FIZGTE ZANE, 

ST, CNTFUAILA*® RUN S44 
e. PYTT FUACEY EF FA 
eI ADH, Faoyvy7therk 
Mr eYYBTAUAFILNDTKVA 
eRAALTSC HA. FOM&H GENIE 
HEAACIIVRW, SAVZ7 blr 16s£ 
Be FT oiAA TS Mais OK 7, 

EAT aT? Ald 256254 | 5 EO 
FeyY7TVRoSdoe CHAULTHrS 
PoBALTIELY, 267-xXF FOL 
DF eg7T TNS, TAT ZAN A} 
D-BAILRRUTHSP HO, FUT 
Pie Pa29YP7 FOCSIL. £F 256 
OAR FryFAtLIY FIDIFLYAb 


PRINT"START ADDRESS 
PRINT" END ADDRESS :"; 


NA BKOCEDF oy IAIGLeEDYT 
(No bLRDTHRESIT, CNT 
DyA7AN8BN4 bFav7AtArHn 
CT. FT bAAR) & LTO S|feerr ee ht 
DTI Ce SMES Als EW 7 dy 
256754 FLeEOFayv7VAls, 7 
—INADNMABE GTI AZMHER 
LCs Lis 27, COP ay 77x 


FaZI7Als.. 4 7aY 7b BASIC 
OVI TVAD IB 


CHPNTHSRMDO, CPAT7QVT74 
AD) BASIC @HALTHA4VY y Tid, 
BERG LCH<. ZR, FAZaV 
7 LUMADBASIC TL, ZFARET 
HET 4. 

OTA YCISRE. RKEVYY 
mI rT VA eIGMIZBSI 
DNDFeyTA7FATAUTSFAICBALT 
FAOTFAAYA RIMMEL IAT, 
aD7TOFT FALLACY THAT RT 
A Rev beklice—-TFUELCBS ER 
AIXPEZSZEAI. 


je +-—%9(=ine#] biAL ) ————_] 
RUA BINT hIENDFryvyA+hL 
(PF FLAREL) 
2Gi54 KLCOFLVATS 
(VELARBERLY 





> "4 +GOSUB 180:SA=D 


-GOSUB 180:EA=D: AE=8 


FOR AD=SA TO EA STEP 8 :CS=8@:D=INT(AD/256):X=1:GOSUB 220 


D=AD- INT (AD/256)*256: X=1:GOSUB 228:PRINT " 
FOR A=®@ TO 7:D=PEEK(AD+A):GOSUB 2280: 
-D=CS:X=1:GOSUB 228 


PRINT " "; 


PRINT " 


te 
9 


"S :NEXT A 


IF CINT(CAD+8)/256)=(AD+8)/256)+(AD>=EA) THEN D=AE:GOSUB 300: AE=0 


PRINT:NEXT AD: END 


INPUT A$:D=68:FOR I=1i1 TO LEN(A$):DT=ASC(MID$(A$,1,1)) 
IF (DT>96)*(DT<123) THEN DT=DT-32 
DT=DT-48: IF DT>9 THEN DT=DT-7 
D=D¥*16+DT:NEXT I :RETURN 
DT=INT(D/16):GOSUB 288 
DT=D-INT(D/16)*16:GOSUB 280 
CS=CS+D: IF CS>255 THEN CS=CS-256 
IF X=1 THEN X=8:GOTO 278 
AE=AE+D: IF AE>255 THEN AE=AE-256 


RETURN 


DT=DT+48: IF DT>57 THEN DT=DT+7 


PRINT CHR$(DT); 
PRINT " 
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> RETURN 
";:GOSUB 228:RETURN 





HW BEP ROR” Kas (HMH1INK—Y) 


_s-~ ——4_ 
-_—_ 
_—4 __ ia 


TEE RR— 


CEY EOS 





LISTLOG 285 


at Mme Ss 8570694-5015 


RAB SEERA (iH) 


©1985 by Victor Publishing Co., Inc. 


12‘ Arabesque1” #5. RUMSXFJOTILIIAbK R208 —-Y) 


IN 


Vet C. Debussy 
aH & 77 


Arabesaue I 





1985 No. 9 


LOGIN 


286 


10 ° « x 
28 * 


Arabesque i * * 
by TAKAHASHI St. 


38 READ A$,B$,C$ 

4@ IF A$="" THEN END 
5S@ PLAY A$,BS,C$ 

68 GOTO 38 


78 * 


‘ 9-9 1-16 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Arn] ORE Ht. Fla TAA BHARTI TWAS 


T150V13L12 

T150V11L12 

T15@V11L8 

O4DF B-OSDF GAECO4AEC 

R1 

Ri 

03B-O04DGB-OSDEF CO4AFCO3A 

R1 

R1 

OSR404G4D4 
03R12B-04D00GB-B-03B-040DGB- 
O3G2F 2 

R4D4G4B-4 
R12B-O04DDGB-B-03B-04FFB-05D 


2)“Arabesque1” #5. RUMSX JOTSLIUIAk (fRR208\—Y) 


E2D2 

R4B-2B-AG 
O3CGB-O4DEGB-OSDEDCO4B- 
Ri 

R4F GDF CDO4A05CO4G 
R1 
V1202F O3CF AO4CO3AFC 
AFAE2D4 

R1 
V1202F O3DF AO4D03AFD 
C8R805F GDF CDO04A05CO04G6 
Ri 

O2FO3CF AOD4CO3AFC 
AFAE2D4 

R1 

O2FO3DF AO4D03AFD 
CO3B-O4CD4N8F 8E8F8 
R1 

O02G03DF GB-GFD 
D4A2F4 

R1 

O2A03DF AO4CO3AFD 
EDEF 4F 8A8G8A8 


A 2 /\ fils. 


Ri 
02B-03F GB-04D03B-GF 
F4050204B05004B 

R1 

O2B03F AO4D03DGBO04F 
A4OSF 2DFD 

Ri 

O3F BO4DA03GO04DFB 
Aa.G8A4.G8 

R1 

O3B04F AOSDO4DGBOSF 
A4.G8A8G4A8 

R1 

O3B04F AOSDO4DGBOSF 
G2F2 


R1 
O1FO2FO3CFAO4CFA 
Fi 


R204F 2 
R203F2 


ENHATHMERETROMRIY TF 4 


FAYAMRERERO FH CRE y > —(eHT 
FPLATDAVE. Cad HPP LO BH % 1D | T. bt 
9. ZFY-O PLAY XR CRELTAL) CRMs tT, 
Cl, TAP C16) BH Z7EIF UL DRE Do ROR EWS 
cCemHL Cbs abit ROCESS 9S C, 
Ale AMT3~4l, CD SP INZAZ1S’ Bfiio 
TC. SECCMNT SH PLAY RNF7Hy7, B7T 
ACMA SPs yeaa JF + Sa VYwvIFONnF7=y 
7 wAE ENF LTA ED LC BaTHRAZDNTT. TI 
TROITC, BIMACHS45 CE MID-)HTL BE 
LTA 7 Y—D PLAYXK’ SHB L, ET ISIAO 
GENO eC LCBLICWUICEBZOTCLE, 1ah% 
COCYD MAHAN MRe LTHZELEG. ADS 
DeCH, He 3RICPT UY YLRIO)MCT. D 


YTENCMIZ LEA, WHFRCAD 2 -pAAe ROK 
DRY IM) BIA D5 aE AR EBA PT — 7 BINA] 
AT. EFNDIONVTWHTCHSs, FHCMLIVC Ld 
LUMAR ACTHTA, CHOPS 3 FAS < HbonT 
VENTER LTC 7Sbx,°2, PLAY XT 3 FFD 
ZOO?) EMDA, EZLSGACT En SIVA 
VeaaPTMITstErTEVCeEMBZWCHIE, DE 
0). 373ITS4ZERAOLTA (COMCII4LA DHHS 3 
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@Sensible Speller -cvreseeeeee ¥ 33,000 
Utilities 

@Newsroom «-:::: PE ee ee ¥ 12,500 
@F ontrix Vesna Ned seiaceeesctsvetes ¥ 19 000 
@Graphics Exhibitor-:---+-:++---- ¥ 10,000 
@copy fl Plus ver. 5.2 +--+ ¥ 11,000 
@Lock Smith Ver. 5.0-++-+-+++++- ¥ 27,000 
@Sideways eg 8S 0 Sotete'p 6 os0% @ ,sg si eae e ¥ ae 000 
@Triple Dump crests tere ¥ 10,000 
GPE crete rete eee ¥ 13,000 
@Beagie Graphics’ -<*r:+'-73-¢77: ¥ 15,000 
@Beagle Basic cit ist etek ofan te tes ¥- 9,500 
@pDisk Quick oe i oteg 6 chanced Bore SRS Co ¥ 8, 000 
@Double Take ts eiecee ees sees nese: ¥°.9- 500 
@Turbo Tutor +++ SEAS YA: ¥ 9500 
@D (Oe le(- a Oe he ec ee ¥ 10,500 
@T ake Jone cee eeees ieee ding dee bot oe ¥}.6 000 
@Blazing Paddles +--<---/-+-04--% ¥ 13',000 
@Merlin I EARS NENT AAS ¥ 18.000 
Mac 

@aAirbone eb eon whee 46s DEKe's ,00/eoe8 os ¥.°9 900 
@Mousestick PeoMag yes ooo omits gu 8% alte one's ¥ 15,000 
@ Mouse Pocket: --** 0278s eeetseteee ¥ 3,000 
@Helix terre ~ ances -- ¥ 110,000 
@Video Works..:-+.* Ce ee Lee: 25,000 
@Es Bridge poe samt, gid ¥ 33,000 
@7ork | Soe Our nts cre ¥- 10,000 
@Smooth Talkererssssrreeerreee ¥ 25,000 
@Ground Zero vrvvrrrreeeeee eee ¥ 10,000 
@Music Works cecceectssctesseeeees ¥ 20,000 
@ultima | 0 eee ¥ 15,500 





@Lode Runner ccccesstecccseeeeees ¥ 10,000 
@Sargon 1) eee ¥ 13,000 
@PFS 1 (- ¥ 32,000 
@PFS Report ccccreccesceeeeeeeees ¥ 32,000 
@PFS File & Report -r+rrr+++- ¥ 49,000 
QChart ccccccccecceeeeeseeeeeeeeeeees ¥ 34,000 
@Filevision TYTTTTTT TELL TELE ¥ 53,000 
@ Thinktank oecccccccoccccovcccevecs ¥ 40,000 
@Click Art ccccctecteccesceeseeeeeeees ¥ 14,000 
@Copy I] Mac vevreeseseeeeeeeeeee ¥ 11,000 
Others 

@Ballblazer for ATARI -++++++++++ ¥ 10,000 
@Flight Simulator for IBM PC ¥13,000 
O@cCopy il 64 for Co4-++++++++++s>+- ¥ 10,000 
@Copy || PC for IBM PC -:+:+++: ¥ 11,000 


Hardwares, Accessories & Books 


@80 Column 64K Card for Ile ¥39,000 


@System Savercerrcssscsssssseeeees ¥ 24,000 
@kraft Joystick ssrrrrrttreeeeeeee ee ¥ 14,000 
@Hayes Machlll Joystick-----++-- ¥ 15,000 
@Grappler+ Se ee ee ore ¥ 35,000 
@Apple.Mouse [Ic vere ¥ 26,000 
@Apple Mouse II +, Ile ---- ¥ 40,000 
— WCricket <:--2es eve cere e eee eee eee ¥ 48,000 


@Compatible Disk (Mecha:TEAC) --- ¥ 32,000 
@Book of Adventure Game:-::-:- ¥ 6,000 
@A Shortcut Through Adventure Land ¥ 2,800 


@Beneath Apple Pro Dos -:::: ¥ 6,000 
@Understanding Applell --------- ¥ 6,000 
For IIc User 

@Ser.to par.Adapter «s+: ¥ 19,000 
@Compatible Disk (Mecha:TEAC) --- ¥ 33,000 
@Printer Cable cercsccttteecseeeeees ¥ 6,500 
@Adapter to DiskII -+--++--+-+++ ¥ 6,000 
Communication 

@BASCII Express “The Professional” --- ¥ 35,000 
@Compuserve Starter Kit ----* ¥ 10,000 
@tThe Source occrrtssesssceeeeeeees ¥ 13,000 
@Super Serial Card-:-:-------++ ¥ 30,000 
@RS-232C Cable crccrceereee seers ¥ 6,500 
@Epson-Coupler'GP-20 --------- ¥ 39,000 
@Vathura MP-1200 ------------ ¥ 82,000 
@Tamutra MP=300 -----ee eee eee ¥ 50,000 
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Accelerator Ile 


: ¥ 75,000 
Mockingboard D for IIc -::--- ¥ 43,000 
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(4UHTHRE BASIC * (ih) .cOOR 
LUD CREVY VB * 7 {fh) COO 
MS-DOSisAzs * 7e(h | 5007 
PC-l00APS * (fie .500F8 
FM-797579499:9-9F 97 * 7E (fh) 50073 
Multinlan™DyZ *& (fhe.500 
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XIF9 94 YD+9=FDDYF * (fh) 50048 
(LUM Tset56B09 * (fh) 4008 
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VIFIDVYVIRAIVA 
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MSXBe 
MSXE¥F—-ABASIC * 7 {| 5003 
MSXF737499°9-9DIY7 * 7E (1.5008 
MSXm—-A IY eK a—V RA * 7 (ih) 600 
MSXVY VsBA PSE * 7 (fh) 6008 
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DAI 49D AGE @tmh 480 
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